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Overview 

Giob.ocx is a custom control developed to permit applications to communicate through shared 
memory. The term GLOB was coined-to refer to Global Objects. Globs contain data, type 
information, some user-defined ^reas, and a symbolic name, or label. This custom control 
provides a standard interface for creating, removing, and accessing shared memory and Globs 
w^ithin shared memory. The current implementation assumes that the applications are well- 
behaved as far as working together goes. This assumes that one application will not close 
or redefine the memory-mapped file (WIMF) while others are accessing it. 

Location of control: 



Control loaded at Base Address: 3000 OOOD (hex). 



Memory-Mapped Files 

Memory-mapped flies (MMF) are the only method available in Windows NT for applications to 
share memory. NT allows the user to map a Hie to a memory space, and to then perform either 
1/0 operations or pointer-based operations on the memory. (MMF and Globs work equally well 
under Windows 95) 

GLOB-structured Memory-Mapped Files 

When a Giob control Is initialized (when an instance of the Giob class is initialized) it opens the 
MMF and applies an overall structure to it. The first 172 bytes of the MMF contain the following 
information 



Byte Offset 


Type 


N Bytes 


Description 


0 


inteaer 


4 


Size of the memory-maoped fiie 


4 


Integer 


4 


Offset of the first Giob position in the MMF 


8 


integer 


4 


Offset of the next available Giob position in the MMF. (This may not 
always indicate the next position to be used however - if Giobs are 
erased, others may be created by reusing the erased space) 


12 


integer 


4 


Read only flag 


16 


integer 


4 


Runtime reference count. 


20 


integer 


4 


Number of 4 byte Notify Maps in each Glob, 


24 


byte 


40 


unused space. 


64 


integer 


Vanable 


list of window handles for the notification process. 
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The Glob control creates a structure in the MMF which contains a name, some parameters, and 
data. The following is the current structure of a Glob. 



Byte 
Offset 


Name 


Type - 


Byte 
Size 




0 


Size 


Long 


4 


Size of Glob/ data, and notify maps 


4 


GlobKame 


BYTE 


16 


ASCII name of Glob 


20 


Dim2Si2e 


Short 


2 


2nd dimension 


22 


DimlSize 


Short 


2 


1st dimension 


24 


Element size 


Short 


2 


byte size of each array element 


^ o 


iype 






type of array element 




Exti"a 


Short 




User* defined parameter 


30 


Command 


Short 


2 


Command to the device 




Status 


Sxiort 




Status from the device 


34 


DataSize 


Short 


2 


Actual data area used 


3d 


Units Index 


Long 


4 


Glob index of a Unit -of -Measure 'label 


40 


Link 


Long 


4 


Relative link to another Glob. Add 
to current position to get new 
position. Links are user-defined. 


44 


IslotifyMap 


Long 


4 


offset in the Glob where the notify 
maps can be found. The notify maps 
start right after the data. 


4S 


Data 


Any 


var . 


Data area 


4B-fdata 
size 


15otifyMaps 


Long 


var. 


Notification handle maps for the 
notification process. 



GLOB.OCX 

The current implementation of Giob.ocx makes the following assumptions: 

The Memory-mapped file created is named "C:\GLOBMMP, this is the default name if a filename 
is not specified in the FileName property. 
This MMF starts as B,195 bytes in length. 



BASIC GLOB METHODS AND PROPERTIES 

Glob/Biob compatibiiity. 

The Glob control is based on the Blob control and has the following properties in common with 
Biobs. Giobs can replace Biobs in any application without modifying the source code in anyway 
other than to giobaliy replace "Blob" with "Giob^ 

Note: The MMF Hies created by the Blob control are NOT compatible with the Giob controL 
Code Examples. 

All code examples are in Visual Basic unless otherwise specified. For more informiation on 
inserting custom controls into a Visual C++ (MFC) application, see the help entry on ActiveX 
control containers: Programming ActiveX controls. 
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AddNew method 



Description 

Adds a new Giob to the memory-mapped file. 

Syntax 

G/ofc.AddNew GlobName, Unitslndex, DimZSize, DimlSize, ElementSize, Type, 
Extra 

Remarks 

GlobName: the 1-15 character name of the Glob, if a Giob by this name already 
exists, that one is erased and its space becomes available for reuse. 

UnKslndex: Offset in the MMF of a unit-of-measure label. 0 if none. 



DimZSize: Size of the second dimension in the data an-ay. All data in a Giob is 
referenced through a zero-based 2-dimensionai array, using the Value property. 

DimlSize: Size of the first dimension in the data array. 

ElementSize: Size of each data element. (Long integers are 4-bytes, Short 
integers are 2 bytes, and Bytes are 1 byte.) Element size is used along with 
DimlSize and DimlSize to determine the size of the data area. 

Type: User-defined value. 

{USP Application note: values < 5 are the number of decimal places to 
assume for integer values - a Type value of 3 means that the value 123456 
represents 123.455. Another Type value in use is -1, meaning that the Glob 
is a non-data label Glob.) 

Extra: User-defined value. (USP Application note: this will be used to track the 
actual length of a waveform during print interactions) 

Note: The current implementation guards against memory collisions. 
However it is not recommended tttat add or erase operations be used in a 
multiple-application environment unless you are certain that only one 
thread will be performing these operations on the MMF, 

Note:(4/24/98) If the AddNew method causes the MMF to expand and there 
are any other globs in existence in the system (not just the current 
application) the MMF may not be remaped properly and a memory access 
violation will occure. To avoid this problem, only add globs when it is 
certain that there are no other globs accessing the same MMF. 

See Also AddNewEx 



Example 



Globl. AddNew "R?M'^ 0, 1 , 1 , 4 , 0 , 0 
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AddNewEx method 



Description 



Syntax 



Add a new Glob and,a companion unit-of-nneasure Glob, if the specified unit-of- 
measure Giob already exists, no new unit-of-measure Glob will be added. 

Glob.AddNewEx GlobName, UnitsName, DimZSlze, DimlSize, ElementSize, 
Type, Extra 



Remarks 



GlobName: the 1-16 character name of the Glob. If a Glob by this name already 
exists, that one is erased and its space becomes available for reuse. 

UnitsName: 1..16 character name of the unit-of-measure Giob. If a unit-of- 
measure Giob with this name already exists, no new unit-of-measure Glob will be 
added. 

DimZSize: Size of the second dimension in the data array. All dara in a Glob is 
referenced through a zero-based 2-dimensional array, using the Value property. 

DimlSize: Size of the first dimension in the data array. 

ElementSize: Size of each data element. (Long integers are 4-bytes, Short 
Integers are 2 bytes, and Bytes are 1 byte.) Element size is used along with 
DimlSize and Dim2Size to determine the size of the data area. 

Type: User-defined value. (USP v^plication note: values < 5 are the number of 
decimal places to assume for integer values. A Type value of 3 means that the ^ 
value 123455 represents 123.456. 

Extra: User-defined value. '(USP Application note: this will be used to track the 
actual length of a wavefomn during print interactions) 

Note: The current implementation guards against memory collisions. 
However it is not recommended that add or erase operations be used in a 
multiple-application environment unless you are certain that only one 
thread will be performing these operations on the MMF. 
(see AddNew method) 



See Also AddNevi/ 



Example 



Gl obi. AddNewEx ''EC", "PPM'\ 0, 0, 4, 0, 0 
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AvailSize property 



Description 

Syntax 

Remarks 

See Also 
Example 



Returns the number of bytes rennaining in the Memory-mapped file. (Read Only) 
Longval = 6/ojb.Av2itS{2e 

The available size in the memory-mapped file will change as new Globs are 
added. If a Glob forces the file to resize itself larger, the change will be reflected 
in the FiieSize and the AvailSize properties. 

FileSize 



Label 1. Caption = Gl obi .AvailSize 



Globlndex property 



Returns or sets the offset from the beginning of the Memory-mapped file, if 
Globindex is changed the location of the Glob will change, so care must be used. 

Value = G/oi}, Globlndex 

In the current implementation, values cannot be less than 40 
Example 

Globl .GlobName = ' attempt to ^link' wizh MMF 

If Globl. Globlndex = -1 Then ' not found, create it 
Globl. AddNew ^^002", 0, 1, 1, 4, 0, 0 

End If 



GlobName property 



Description 

The name of the Glob. Setting a value in the GlobName property causes the 
control to seek a Glob by that name, and Mink' up its properties etc. if it is found. 

Syntax 

G/oi;lGlobName = <string> 



Description 

Syntax 
Remarks 



Document:T:\SPX\Docs\GLOB.DOC (Version 1.2e) 




Remarks 



Globs currently have names of 16 characters or fewer. If a Glob is found, the 
properties will thereafter reflect the values in the Memory-mapped file, if a Giob 
is not found by the naTne given, references to the GiobName property will return 
an empty string, and access to other properties will return the following values: 

Globlndex * -1 

GlobPtr 0 

Dim2Size -1 

DimlSize -1 

Command -1 

Status "1 



See Also 



Example 

Gl obi .GiobName = ^^C02" ^ attempt to ^liiak' with MMF 

If Globl, Globlndex = -1 Then ' not found, create it 
Globl.AddKew ^C02",, 0, 1, 1, 4, 0, 0 

End If 



GlobPtr property 



Description 

32-bit pointer value pointing to the head of the current Glob in the memory- 
mapped file. 

Syntax 

Longval = G/ob.GlobPtr 

Remarks 

in Windows NT, this pointer is valid only within the current .process. It is intended 
for use wifri C or Ch-+ programs which can take advantage of pointers. 

See Also 

DataPtr 

Example 

Dim L as Long 

L Giobl ,GlobPt:r ' get in-process address of Glob 



CloseMMF method 



Description 

Unmaps the current memory view and closes the Memory-m.apped file. Returns 
the status from closing the fiie. 

Syntax 

status = Glob.CioseMMF 

Remarks 

Note: Do not use in a multiple-application environment where other 
threads or processes may be using the current MMF, 
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Command property 



Description 

Syntax 

Remarks 

See Also 
Example 



User-defined 15-bit value. 
G/o£)-Command = IB-bit-value 

Intended for use in conjunction with Status property for device control. By 
convention, the application 'owns' the Command property (can modify it), while 
the device handier must only read iL 

Status 



Gl obi . Command = READ_ONCE 
While Globl. Status <> STATUS_COM?LETE 
DoEvents 

Wend 

Label 1. Caption = Globl .Value (0 , 0) 



' done yet? 
^ wait 

' display value 



DataPtr property 



Description 

Syntax 
Remarks 

See Also 
Example 



32-bit pointer value pointing to the data area of the current Glob in the memory- 
mapped file. 

Longval = G/ob.DataPtr 

This pointer is valid only within the cun-ent process. It is intended for use with C 
or C++ programs which can take advantage of pointers. 

GlobPtr 

Dim Ij as Long 

L = Globl .DataPtr ' pet in-process address of Glob's dara 



DataSlze property 



Description 

By convention: the actual amount of the data area in use. This is used to indicate 
how many bytes of the data area contain valid data - from 0 to (Dim2Size * 
DimlSize * ElementSize}-1. 



Syntax 
See Also 
Example 



Value = Giojb.DataSize 
Dim2Size, DimlSize, ElementSize 
J% = Globl. DataSize 
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DimlSlze property 



Description 

Represents the second dinnension in the 2-dinnensional array structure of Glob 
data. 

Syntax 

Value = G/o£>.Dim1Size 

Remarks 

Changing this value for a Glob that already contains data will affect the 
calculations of the location of each data element. 

See Also 

Dim2Si2e 

Example 

Dim d2 as long, dl as long 

' clear my per cylinder waveform array 

Gl ob 1 . Gl obName = WAVES / CYL " 
For d2 = 0 to Globl . Dim2£i2e - 1 

For dl = 0 Globl.DimlSize - 1 

Gl obi. Value ( d2, dl ) =0 

Next dl 
lOext d2 



Dim2Size property 



Description 

Syntax 

Remarks 



See Also 
ExampJe 



' clear my per cylinder waveform array 

Globl.Gl ObName = ^^WAVES/CYL" 
For d2 = 0 to Globl .Dim2Si2e - 1 

For dl := 0 Globl.DimlSize - 1 

Globl. Value ( d2, dl ) = 0 

Next dl 
Next d2 



^ link up 
' loop through 
^ ditto 

' zero an element 



Represents the first dimension in the 2-dinnensional array structure of Glob data. 
Value - Gbb.Dim2Si2e 

Changing this vaiue for a Giob that already contains data will affect the 
calculations of the location of each data element. 

Dim 1 Size 

Dim d2 as long, dl as long 



' link up 

^ loop through 

^ ditto 

' zero an element 
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ElementSize property 



Description 

Retrieves or sets the number of bytes in a single data element. A Giob's data 
area is made up of a two-dimensional array of elements of size ElementSize. 

Syntax 

Value ' G/oi.ElementSize 

Remarks 

Changing this value for a Glob that already contains data will affect the 
calculations of the location of each data element and its accessed width. 

See Also 

DimZSize, Dim 1 Size 

Example 

' Read a 32-bit integer as 4 8-bit bytes 
Globl.GlobName = 'W_LONG_INTEGER" 

Globl.DimlSize ==4 ^4 elements 

Gl obi . ElementSize =1 ^1 byte each 

Ql = Globl. Value ( 0, 0 ) ^ read Isb 

Q2 = Globl. Value { 0, 1 ) 
Q3 = Globl. Value ( 0, 2 ) 

Q4 = Globl. Value ( 0, 3 ) ^ read msb 



Erase method 



Description 



Syntax 
Remarks 



See Also 
Example 



Clears the contents of the current Glob, including all formatting information and 
data. The Giob can no longer be referenced. 

G/oi). Erase 

The erased area will be reused for new Globs being added if the new Globs wiii 
fit Erasing a Giob and then adding it again immediately will most likely reuse the 
same area if the overall size of the new Glob is the same as or smaller than the 
original. 

Afofe: The current implementation guards against memory collisions. 
However it is not recommended that add or erase operations be used in a 
multiple-application environment unless you are certain that only one 
thread will be performing these operations on the MMF. 

AddNew, AddNewEx, EraseMMF 

Globl.GlobName = ''H?M" ^ link to uhe "^RPM" Glob 

Globl. Erase ^ clear ±z our (delete it) 
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EraseMMF method 



Description 

Syntax 
Remarks 



See Also 
Example 



Clears the entire Memory-mapped file and resets its interna! pointers to initial 
values. This produces a "new" MMF. 

G/o£).EraseMMF 

Any Globs currently linked to the MMF will contain invalid infomnation after thts 
operation. 

Note: Do not use in a multiple-application environment unless you 
understand the impact on other applications. 



Erase 

Globl .EraseMMF 



pffft, you're history 



Extra property 



Description 
Syntax 

Example 



User-defined 16-bit integer. 
value = G/ojb.Extra 
G/ob.Extra = value 

' Tell print module to only use 100 bytes from waveform 
Globl.GlobKame ^ ^'SECONDARY PARADE" 
Globl. Extra = 100 



FileSize property 



Description 

Syntax 

Remarks 

See Also 



Returns the current size of the MMF. Read-only. 
Value = G/oi).FileSi2e 

The FileSize may change if a Giob is added to the MMF that will not fit in th€ 
cun^ent file. 

FiieName 



FileName property 
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See Also 



Returns or sets the fiie name of the current Memory-mapped file. 

String = G/otPileName 
G/ojb.FiieName = <string> 

in the current implementation, the FiieName is predefined as X:\GLOBMMP. 
Changing this name will create a new MMF. The FiieName may be a reiative or 
absolute path. The FuliPath property will contain the fully qualified pathname to 
the MMF. In general, if s full path designation is not specified in the FiieName 
property then the FuliPath will be generated by adding the current directory to the 
filename. 

Note: it is recommended that "C:\GLOBMMF" not be used for any real 
application data. Use a unique name for each new application that uses 
MMF. 

FileSize 



Example 



'assume our application directory is C:\Tnyapp 
Gl obi. FiieName = ^^MYMMF" 

'the FuliPath property will contain ''C:\Tnyapp\MYMMF" 
Globl-FileKame = ^'C:\MYMMF" 

'the FuliPath property will contain ^'C: \MywiF" 



GetFirstGlob method 



Description 

Syntax 
See Also 
Example 



Reads the first Gtob in Ihe'Memory-mapped-file. Returns a 32-bit pointer in the 
MMF if found, otherwise returns 0. 

point ^ G/oi}. GetFirstGlob 

GetNextGiob 

' build a lisr of all Globs in the .MMF 
listl . Clear 

If Gl obi. GetFirstGlob then 

Listl . Addi tern Globl . Gl obKame 
While Globl. GetNextGiob 

Listl . additem Globl . GlobName 

Wend 

End If 



GetNextGiob method 



Description 



Reads the next Glob in the Memory-mapped-fiie. Returns a Boolean indicating 
whether or not a valid Glob was found. 
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Syntax 

Boolean = G/ojb,GetNextGlob 

See Also 

GetFirstGiob 

Example 

^ build a list of all Globs in the MMF 
listl- Clear 

If Globl. GetFirstGiob then 

Listl . Additem Globl . GlobName 
T^fhile Globl . GetNextGXob 

LiBtl.additem Globl. GlobName 

T^end 

End If 



Link property 



Description 

The name of another glob that relates to this glob. 

Syntax 

stNalue = G/ofc.Lmk 
Glob.Link = strValue 

Example 

' position Glob2 to the position in Globl. Link 
Glob2,GlobNaTne - Globl. Link 



Status property 



Description 

User-defined 15-bit value. 

Syntax 

G/ojb.Status = 16-btt-vaiue 

Remarks 

intended for use in conjunction wiLh Command property for device control. By 
convention, the device 'owns' the Status property (can modify it), v^iie the 
application must only read it. 

See Also 

Command 
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Sub ReadMeasurement ( ) 

On error goto Bad_Stuff 

GlobMeasurement . Value ( 0 , 0 ) = AcguireSomeReading 

Exit Siib 
Bad^Stuf f : 

GlobMeasurement .Status = err 
End Sub 



Type 

Description 



Syntax 
Example 



User-defined 1B-bit integer.. By convention Type contains values from 0 to 5 for 
integers that will be scaled into floating point numbers, in this case, the value is 
the number of decimal places implied in the integer. 

Further convention uses Type = -1 to indicate a Label Glob, containing no data. 
Value = G/ob.Type 



If Gl obi. Type = -1 then 

Printer . Print Globl . GlobName & '^Is A Label" 

End If 



UOM property 



Description 

The name of a unit-of-measure label Glob to be associated with this Glob. 

Syntax 

strValue = G/ojb.UOWI 
G/06-UONI = StrValue 

Example 

If Globl.UOM = GlobPercent .GlobName Then 

' Globl uses unit -of -measure from GlobPercent 

End If 



Value property 



Description 

This is one of the methods for accessing the data portion of a Glob from within a 
Visual Basic program. 



Syntax 



Remarks 



G/oi. Vaiue( <dim2>, <dim1> ) = newvalue 'set the value into the Glob 

Globvalue = G/oi?. Value{ <dim2>, <dlm1 > ) ' get the value 

If the amay location results in a data element that is out of range, the new value 
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will not be written to the Giob. If attempting to read a data element with an invalid 
array location, Value will return a -1. 



The return value is LONG {32-bit integer); if accessing data whose data 
elements are only 1 or 2 bytes long, the data values will be returned in the low 
order 8 or 15 bits *of the 32-blt return value, as appropriate. 

Example 

Diin i as integer 

' fill a 512 byte Glob array of bytes with random values 

Globl.AddNew ^mVEFORM" , 0, 1, 512, 1, 0, 0 ^ diTnl-512 

For i = 0 to 511 

Globl. Value ( 0, i ) = md() * 255 ^ save md byte 

Next i 

^ link with the ^^Dwell per cylinder" Glob and print values 

Globl. GlobName = ^^DWELL/CYL" ^ link up 

For i =r 0 to NumberOf Cylinders - 1 ' loop through 

Prinrer. Print Gl obi. Value ( 0, i ) ^ access £: print 

Next I 



EXTENDED GLOB METHODS AND PROPERTIES 

The following nr»ethods and properties are new to the Giob control and are not avaiiabie to the 
Biob control. 



AutoSendNotify Property 

Description 



Syntax 
Remarks 



If this propery is True' then any change in any of the Vaiue' properties or in the 
'Status' or 'Command* properties will cause the Change event to be fired. 



Globl. AutoSendNotify = <True/Faise> 



When this property is set to False, any changes in the value, status, or 
command properties will not cause a Change event to be fired by the cun*ent 
Giob interface. Other giob interfaces that change the properties will stiil cause a 
Change event. To fire a Change event, use the SendNotify method. This 
method will send a Change event to all glob interfaces that are registered to be 
notified. This functionality allows an entire array to be updated without sending a 
change event for each element in the array. The event can be sent at the end of 
the update with the SendNotify method. 
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Examples 

Globl . AutoSendUotify = False 
For X = 0 to 99 

Globl .ValueSD(x) = data (x) 

Next X 

Globl.SendNotify ID__VALUE, 0 
Globl . AutoSendNotify = True 



aValueS, aValue16, aValue32 Properties 



Description 
Syntax 

Remarks 

See Also 
Example 



Array versions of the VaiueB, Vaiue16, and Value32 properties 



Glob1 .aValue8{0) = my_byte 
my_byle = Glob1.aValue16{5) 



'write a byte value to the Glob 
'read a byte value f ronn the Giob 



This property accesses the data in the Globs data area as a single dimension 
an-ay of the appropriate type. Due to the limitations of the Automation types. 
aValueSQ returns a short integer (2 bytes) , aVaiue16() returns a short integer, 
and aVaiue32() returns a long integer (4 bytes). 

Values. Vaiue16, Vaiue32 



Dim i as integer 

' fill a 512 byte Glob array of bytes with random values 

Globl,AddNew ^mVEFORM'S 0, 1, 512, 1, 0, 0 ^ diml=512 

For i = 0 to 511 

Globl.aValueS ( i ) = md() * 255 ^ save md byte 

Next i 

^ link with the ^^Dwell per cylinder" Glob and print values 



Globl.GlobName := ^'DWELL/CYL" 

For i = 0 to Number Of Cylinders - 1 

Printer. Print Globl, aValueB ( i ) 

Next I 



' link up 

^ loop through 

' access &, Drint 
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Change Event 



Description 



This event is triggered If a Glob has registered for notification and the data in the 
Giobs data area has been changed. 

4/24/98 update: 

This event wili also fire if the status or conrinnand fields have been changed. Two 
paranneters are passed in with the event as weli. The first identifies the property 
that changed. The second is a data value that is user defined or in the case of a 
status or command change, the new values of these properties. 



Syntax 



Sub Giob1_Change(ByVal PropID as integer. ByVai Value as integer, 
ByVal SendID as iong) 
TO-DO: Put code here to handle change event 

exit sub 



Remarks 



The following PropID values are predefined and will be passed to the Change 
event if the AutoSendNotify property is set to True. 



ID^UNKNOWN 
!D_V/iLUE_CHANGED 
1D_STATUS_CHANGED 
ID COMMAND CHANGED 



0 
1 
2 
3 



The SendID parameter contains the Globlndex of the Glob that changed. This 
parameter can be used along with the NotifyOnChange property to have one glob 
interface monitor many Giobs for changes. 



Example 



Sub Globl_Charige (ByVal PropID as integer, ByVal Value as 
inceger, ByVal SendID as long) 

^ identify which property changed 
Select Case PropID 

Case ID_VALUE_CHANGED: 

^process value change 
Case ID^^TATUS^CHANGED : 

'process status change 
Case IDlcOMiyLAlsfD_CHANGED: 

'process command change 
Case ID^IINKNOWK: 

'process something. 

End Selecr 
Exit Sub 
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FormatMMF Method 



Description 
Syntax 
Remarks 



Example 



This method allows the MMF to be reformated. 



Giobi .FormatMWlF{<integer>) 



The integer value represents the nnaximunn number of Notification registrations 
that the newly formated MMF can handle. The default MMF can handle 256 
registrations. This method call will destroy all data currently in the MMF file. This 
call should be made before adding any Globs with the AddNew function. 

It should be noted that the fewer notification that a particular MMF will have to 
handle, the smaller the MMF file will be. Large numbers of notification 
registrations may slow the perfonnance of the application using the MMF, 



Globl . Forma tMMF (1024 ) 



Globl. AddNew ^^AMPS" , 0, 0 , 0 , 0 , 0 , 0 



FullPath Property 



Description 

Syntax 

Remarks 

See Also 



Returns fully qualmed path to the MMF being used. 
Path = Globl. FuIIPath 



Read only. Returns a string value, i his property is usefull to determine if the Glob 
is connected to the proper MMF, 



FiieName Property 
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GlobSize Property 



Description 



Syntax 



This property returns the total size in bytes of the Glob. This includes the Glob 
header area, data area, and the notify map. 



N = G[ob1. GlobSize 



Remarks 

Each Glob in the MMF can be different sizes. This property can be used to chain 
through the globs in the MMF without using the GetNextGlob function. The next 
glob in the file has an index equal to the cun^ent Globlndex + GlobSize. 

Example 

Dim Newlndex as long 

'Get the next glob in the MMF. 

Newlndex = Gl obi . Globlndex + Gl obi . GlobSize 

Gl obi. Globlndex = Newlndex 



IndexOf Property 



Description 

Returns the index into the glob MMF of a named glob. 

Syntax 

Myjndex = Giob1.indexOf{<string>) 



Remarks 

This method can be used to retrieve Glob indexes from a Glob Interface without 
altering which Giob the Interface points to. 

Example 

'Find the index of the UOM__AMPS glob 

UoTn_Amps_Index = GlobI . IndexOf ( '^UOM_AMPS" ) 

'This call does not change which glob Globl is pointing at. 
'This preserves any notification settings in Globl. The 
^ index could have been found by setting Globl . GlobKame to 
'"UOM_AMPS" and then reading the Globl . Globlndex property 
'but any Notification settings would have been lost." 
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Insert Method 



Description 



Syntax 



Remarks 



Example 



Allows a value to be inserted into the middle of an array of values, moving values 
after the insert point up one position. 



Glob1 Jnsert(<value>,<position>} 



<value> is a long integer 

<position> is a zero based index into the an-ay 



The insert method relies on the eltsize property to determine the location to insert 
into the Globs memory area. Values stored in the last index location of the array 
are rolled off the end and lost. <vatue> is a long integer and input should be cast 
as a long regardless of the actual data type. The Glob will use the eltsize property 
to determine the actual data type and store it accordingly. 



^keep a history of rhe last 10 access times 
Sub ReadFileO 

Globl . Insert (Kow, 0} ^ store date/ time inf . 

'perform data a.ccess functions 



exit sub 



nHandles Property 



Description 

Syntax 
Remarks 
Example 



This property retums the number of notification handles that this particular MMF 
has been formated to handle. 



N = Globl .nHandles 



This property is read only. 



Dim I as integer 

For I = 0 ro Globl .nHandles - 1 

Listl.Addlrem Globl .Not ifyKandle {!) 

Next I 
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nNotifyMaps Property 



Description 
Syntax 
Remarks 
Example 



This property retams the number of Notification maps that each Glob contains. 
N = Glob1 .nNotifyMaps 

This property is read oniy. 
Dim I as integer 

For I = 0 to Globl .liNotifyMaps - 1 

Listl.Addltetn Globl .NotifyMap (I ) 

Next I 



Notify Property 



Description 



Syntax 



Remarks 



Boolean value. If set to True then the control will raise a Change event if any 
portion of the data area is modified. 

4/24/98 update: 

The Change event will also fire if the Status or Command properties are altered. 



Giob1. Notify = <True/False> 
is^Notify^On = Globl .Notify 

Each MMF file is capable of supporting a fixed number of controls to be notified of 
s data change. The limit is global in scope, meaning that only a fixed numoer of 
controls across the entire system can be registered for notification for a particular 
MMF file. If an attempt is made to set the Notify property of a control to True and 
the register is full, the property will not change, it will retain a False value. 

If the MMF location that the Glob is currently "looking af is changed, the Notify 
property will automatically remove the Globs handle from the NotifyHandie iist 
and set itself to False. This could happen if the GlobName, Globtndex, FileName, 
or GiobPointer properties are changed. 
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If an application containing Globs that are registered for notification exits in a 
nornaa! nnanner, the Globs will autonr^atically rennove their handles from the 
NotifyHandle list stored in the MMF. If the application terminates abnormally, 
there is a possibility that invalid handles will be left in the iist in order to handle 
this, if there are rtt> Globs cun-ently connected to a specific MMF, the first Glob to 
connect will dear the NotifyHandle iist Also, during the notification process, if an 
invalid window handle is encountered, the invalid entry is automatically remove 
from the iist. Exiting all applications that are using a particular MMF and then 
restarting them is guaranteed to clear out all invalid entries in the list. 

4/24/98 update: 

The Notify property is now read-only at design time. 

Examples 

^set up a app to be notified of data changes in a glob 

Globl. Notify = True 

if (Gl obi, Notify = Palse) then 

msgbox "imable to register Globl for notification" 

end if 



NotifyHandle Property 



Description 

Read only iist of ali the window handles currently registered for notification in a 
particular MMF. 



Syntax 
Remarks 



Examples 



a_windows_handie = Globl. NotifyHandle(<0"??>) 



The NotifyHandle iist is global to ALL Globs pointing at the same MMF, even 
Giobs in separate processes. The values returned are the window handles of the 
individual controls that are registered for notification. A zero entry indicates an 
unused (available) location in the iist This property is included primariiy as a 
debug tool for developers. 



'check to see if a particular control is registered, 

Globl. Notify = True 'register control 

NotifyOK = False 
For I = 0 to 31 

if Globl. h-Wnd ^ Globl .NotifyHandle (I) then 
KforifyOK = true 

end if 

next I 

if NotifyOK = False then 

msgbox ^^Did not find Globl 's handle in the list" 

end if 
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NotifyMap Property 



Description 

Syntax 
Remarks 



Example 



An array of 32 bittlong integer) values representing a bit map of the NotifyHandle 
list entries to notify v^en the Glob value changes. The NotifyMap property is 
read-only. 



bit_map = Globl.NDtifyMap(x) 



by examining the bit pattern stored in this property, the exact NotifyHandle entries 
that will be notified of a change can be detemnined. If bit 0 is set to 1 then 
NotifyHandle entry 0 will be notified of a change if any of this Globs value 
properties are changed. Bits 0-31 nnap directly to NotifyHandle entries 0-31 in the 
MMF. This property was included to aid in debugging applications. When used in 
conjunction with the NotifyHandle list, the progrannnner can nnonitor exactly which 
Globs are getting sent the change message when a value is changed. 



^Display a list of handles that will be notified if the 
'value of this glob is changed. 

my^Map = Globl.NotifyMap (0) 
For X = 0 to 31 

bitmask = 2"x left bit shift operation 

''would be better here, 
if (Tny_Map And hitmask) then 

ListBox-Addltem Gl obi .NotifyHandle (x) 

end if 

next X 



NotifyOnChange Property 



Description 



Syntax 



Remarks 



Example 



This property allows a single Globinteiface module to monitor many 'Gicbs' in the 
MMF for changes. 



Glob1.NotffyOnChange(<GiobName>) = <True/False> 
isNotified = Glob1.NotifyOnChange{<GlobName>) 



NotifyOnChange allows a single Glob interface to receive notification messaoes 
from multiple Globs in the MMF. Note that if the Notify Property is set to Taise' 
that ALL notification registrations for this Glob interface are deleted, (see 
example) 



^Register Globl to receive notification from 4 Globs in the 
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Globl.NotifyOnChange( WiPS") = true 
Globl.NotifyOnChaiige( "VOLTS") - true 
Globl.NotifyOnChange(*^C02''> = true 
Globl,NotifyOnChange(*^NOX") = true 

'The following statement clears all notifications for Globl 
Globl.Kotify = false 

'The above statement is the same as the following code. 

Globl .Not if yOnChange [ "'AKPS" ) = false 
Globl. Not if yOnChange(^^VOLTS") = false 
Globl. NotifyOnChange(^'C02") = false 
Globl.NotifyOnChange(^^NOX") = false 



RefCount Property 



Description 

This property exposes the MMFs reference count variable. 

Syntax 

N = Globl .RefCount 

Remarks 

There are two cases where the Reference Count of the Giobs interfacing with a 
particular MMF are important The AddNew nnethod will fail if the RefCount is 
greater than 1 and the AddNew results in the MMF being expanded. Also, the^ 
FonnatMMF method must be used with care if the RefCount is greater than 1 . If 
another application is using the MMF when it is reformated, the results will be 
unpredictable and the application may crash. 



SendNotify Method 



Description 

This method is used to manual send a notification message to aii glob interfaces 
that are registered to receive one. 

Syntax 

Globl .SendNotify(<PROP_ID>, <VALUE>) 
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Remarks 

The <PROP_ID> parameter is used to pass a property id number to the change 

event of the recieving gbb interfaces. The following ID's are pre-defined 

ID^UNKNOWN = 0 

ID^VALUE^CHANGED := 1 

ID_STATUS_CHANGED = 2 

!D_COMMAND_CHANGED = 3 

ID values above 3 are available for custom iD's. 

The <VALUE> parameter is used to pass the new value of the changed property, 
in the case of a data value, this is usualy 0 since the data may be stored in any 
format in the glob. For the status and command properties this value should be 
the new value of the property. 

Example 

See the AutoSendNotify property. 



StrValue Property 



Description 

This properly returns or sets a string value into a Glob. 

Syntax 

Glob1 .StrValue = <string> 
my_string = Glob1 .StrValue 

<string> can be any valid string literal or a string variable. 

Remarks 

Globs store a string as a NULL terminated array of bytes in its data area. Care 
must be taken that the byte length of a string is not larger than the DataSize of 
the Glob. If a string is too large to fit then it will be truncated to fit into the data 
area of the Glob. 

Visual Basic vs. Visual C++ fMFC) 

in Visual Basic, this property works exactly as expected, VB handles all the 
conversions to and from C style strings transparently, in Visual C+h-, when setting 
the StrValue property, <string> is expected to be of the type LPCTSTR or a 
CString object When reading StrValue, the return type is a BSTR object The 
safest way to access the StrValue property from within a Visual C+-f program is to 
use a CString object for both the assignment and retrieval of the value. The 
CString objects assignment operator (=) is overloaded to handle the conversions 
between LPCTSTR types and BS i R objects. String literal can be used to set the 
value in the Glob. The _ i (<stringjitera>) macro should be used to insure that 
the value is stored in the proper format (Unicode or Double Byte characters) 
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Examples 



visual Basic 

Dim my_string* as string 

Globl.StrValue = ^This is a Glob" 
Globl . StrValue = Tny_Etring 

my^string = Globl.StrValue 

Visual C+-f (MFC) 

CString Tny_string; 

//using the _T macro to assign a string literal 
Globl . SetStrValue (_T ( '^Tliis is a Glob")); 

//using a CString object to access the property 
Globl . SetStrValue (Tny__string) ; 
my_string = Globl. Gets t rvalue [) ; 



Values, Value16, Value32 Properties 



Description 



Syntax 



Allows reading and setting of values to the Globs data area, 
the Value32 property is the default value property for the Glob 



Giob.ValueS = new_byte_vaiue 
byte_vaiue = Glob.ValueB 



' set value of the data area 
' retrieve the value 



Remarks 



Example 



Values, Vaiue15, and Vaiue32 return a single byte value, a 2 byte value, and a 4 
byte value respectively. If a value is written to a Giob whose data ares is smalier 
than the byte size of the value, nothing will be written to the Glob. Value32 is the 
default value. 

Dim my__byte as byte 

Tny_byte ^ Cbyte {Globl .Value 8 ) 

OR 



Dim my_byte as inreger 
my_byxe = Globl. ValueB 

OR 

'using the default property 
my_long = Globl 
Globl = my_long 
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ValueSD property 



Syntax 
Remarks 



See Also 
Example 



This is one of thernethods for accessing the data portion of a Glob from within a 
Visual Basic prograno. 

G/oh. ValueSD{<index> ) = newvaiue ' set the value into the Glob 
Globvalue = G^ob. ValueSD( <index> ) ' get the value 

This property is a single dimensional version of the Value property and behaves 
in exactly the same manner. The ValueSD property takes only one index 
parameter instead of two. The memory associated with the Glob is treated as a 
single dimensional array for access purposes. 

if the array specifiers result in a data element that is out of range, the new value 
will not be written to the Glob. If attempting to read a data element with invalid 
array specifiers, Value will return a-1. 

The return value is LONG {32-bit integer); if accessing data whose data 
elements are only 1 or 2 bytes long, the data values will be returned in the low 
order 8 or 16 bits of the 32-bit return value, as appropriate. 



Value property 



Dim i as integer 

fill a 512 byte Glob array of bytes with random values 

Globl.AddNew *^WAVEFORM'\ 0; 1, 512, 1, 0, 0 ^ diTnl=512 

For i = 0 to 511 

Gl obi. ValueSD ( i ) := md() * 255 ^ save md byte 

Next i 

' link with rhe ^^Dwell per cylinder" Glob and r^rint values 

Globl .GlobName ^ DWELL /CYL" ^ link up 

For i = 0 ro NuraberOf Cylinders - 1 ^ loot) through 

Prinrer. Print Globl .ValueSD ( i ) ^ access print 



Next 1 
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Version Property 



Description 

Syntax 
Remarks 



Read only property that returns a string containing the version ID of the Giob 
interface. 



version = Giob1. Version 



Since there have been several versions of this control produced, this property 
was added to help developers tell which version they had installed on thier 
machine. The following conventions will be used in future releases: 

Version ID = 1.2x 

Primary release number = 1 : This number will increase if there are substantial 

feature changes in the Glob Interface. 

Secondary release number = 2: This number will increase if bug fixes and minor 

feature updates will invaiidate the current MMF 
structure. 

Release version letter = x: This will increment if bug fixes and feature updates 

Do not require any MMFs being used to be rebuilt 



Stock Properties 



Visual Basic and Visual Ch-+ automatically provide several stock properties for any custom 
control. Doounnentation for these properties can be found in the on-line help system for either 
Visual Basic or Visual C+-*- 

Some standard stock properties 

hWnd, Top, Left, Height, Width, index. Icon... 
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Update History 



Version 1 -2a (May 4, 1998*) 

1) Fixed a problem with Deleting and then Adding new globs to the MMF. 

2) Link and UOM properties are now strings instead of indexes. 

3) added the IndexOf method call to retrieve the index of a named Giob. 

4) Added the version property to make it easier to keep track of which version is 
being used. 

Version 1.2b {May 5, 1998) 

1) Added SendlD to the Change event. 

2) Some internal modifications to the way messages are sent from Glob to Glob. 

3) Optimized the Notification process if there are no notifications registered. 

4) Added the NotifyOnChange property. 

Version 1.2c {May 6, 1998) 

1) Fixed a bug in the NotifyOnChange property. Users can now set up a Glob 
with no name to receive notifications from other Globs. 

2) Fixed a problem with creating a new file if the specified MMF does not exist 

Version 1.2d (??) 

1) Fixed a crash in Windows95 if the MMF fiie did not exist. 

2) Windows 95 no longer crashed when the MMF is expanded. 

Version 1.2e {June 16, 1998) 

1) Removed Glob interfaces from the control tab list. 

2) Globs no longer dispiay a "Property Page" when clicked on during runtime. 



Required Files 



The following files are required on the system before Giob.ocx can be successfully 
registered and used. 

MFC42.DLL * 
OLEPR032.DLL * 
MSVCRT.DLL * 
GLOB.OCX 

Note: 

The files marked with *'s will be present on systems that have internet Explorer 3 0 or 
Microsoft Visual C+-f with MFC version 4.2 installed. If these files are not found In the system or 
system32 directory then they must be installed and registered before Giob.ocx can be registered 
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// Copyright 199B, 1999 SPX Corpoi^ation ;i 

J I eiob.cpp: Implementation of CGiobApp and DLL rcgistrction. 

#inciude "stdafx.H" 
#include "eiob.h" 

#ifdef_DEBUe 

#definc new DEBUG.NEW 

#undef THI5_FILE 

static char THIS_FILEQ = FrLE_J 

#endif 



CeiobApp NEAR theApp; 

const eUID CDECL BASED_CODE _tlid = 

{ 0x5f 20d2d3, Ox788c, Oxlldl, { Ox9q, Ox9b, 0x2, 0x7, 0x1, 0x4, 0x5a, Ox6b } }; 
const WORD _wVerAAajor = 1; ■ 
coBSt WORD _wVerMinor = 0; 

m////////////J////////////////////////////////////J//J/////////////////J// 
//sCSiobApp-Initlnstance - DLL initialization 

BG^bL CSlobApp::InitInstanceO 

{ 

BOOL binit = COieControlModulev-InitlnstanceO: 

ifCblnit) 

I 

II I Ot>D'. Add your own module initicilizdticin cods here 

:}: 

return blnrr; 



//////J/JJ/J///JJ/J/J////////////////J/////////////////////////////J/////J// 

II C&bbApp::Ex?tInstance - DLL termination 

int C5!obApp::ExitIr^anceO 
{ 

// TODO; Add your own module termination code here, 
return COleControlModuiei'.ExitlnstanceO; 

} 



/////////////J/////////////////////////////////////////////////////////////// 
// Dllf^egistcrServer - Adds entries to the system registry 

STbAPl DllRegISTerServer(void) 



1 



{ 

AFX_MANAeE_.5TATCLGfxModuieAddrThis); 

if (lAf xOleRegisterTypeLib(Af x&etlnstanceHandleO, _tlid)) 
ret urn Resu 1 1 FromS code(5ELFREG_E„TyPELrB); 

if GCOleObjectFactoryExriUpdateRegistryAll^TOUE)) 
return ResuitFromScodeCSELFREe.E.CLASS); 

return NOERROR; 

} 



///////////////////////////////////////////////////////////////////////////// 
// DllUnregisterServer - Removes ex\-tr\^ from the system registry 

STDAPI C>IlUnregister5erver(void) 

'^jkFXJAANA&E^TATELafxModuleAddrUis); 

'M ClAf xOleUnregisterTypeLibLtlid, „wVerMcjor, _»vVerMinor)) 
return ResuitFromScode(SELFRES_E.TYPELIB); 

:;|ff C!C01eObjectFactorycx::UpdateRegistryAll(FAL5E)) 
s| return ResultFromScode(SELFRES_E_CLASS); 

^rreturn NOERRQR; 



; Copyright 1998, 1999 5PX Corporation 

: Giob.def : Declares the tnoduie parameters. 



LIBRAfty ''GLOB.OCX" 

EXPORTS 

DIlCanUnloadNow @1 PRIVATE 
Dll&etdassObject ©2 PRIVATE 
DIIRegistcrServer ©3 PRIVATE 
DllUnregisterServcr ©4 ?RIV>^TE 



// Copyright 199B, 1999 SPX Corporation 

// Gbb.odl : type library source for ActiveX Control project. 

// Tnis file will be processed by the Make Type Library (mktyph'b) tool to 
J J produce the type library (Slob.tlb) that will become g t^omvc^ in 
// Siob.ocx. 

#inctude <olect[.h> 
#include <idispids.h> 

■ [ uuid(5F20&2D3-788C-liDl'9A9B-026701045A66)*version(1.0j' 

helpfileC'Slob^hlp"), * 

heipstringrsiob MMF Interface"). 

control ] 
Jibrary SLOBUb 
{ 

importlib(STT>OLE_TLB); 
importHb(5TDTyPE_TLB); 

Primary dispatch interface for CSIobCtrJ 

■ruuid(5F20b2D4.78BC-llDl-9A9&-020701045A6B), 

' j;heipstring("l:)ispatch interface for Slob Control"), hidden ] 

:; Sspinterf ace _D£lob 

:|j 

properties: 

: 'j J J NOTE - ClassWizard will maintain property information here. 
|: J J Use extreme caution when editing this section. 
-J //{{AFX^DLJ^ROP(CeiobCtrO 
I! MI>I5PII>J^WND)3 01^HANDLEhV^^ 
i;^ ndriXJbngSloblndex; 
: [idCZ)] iong DimlSize; 

IidC3)] long Dim25i2e; 

[idC4)3 long ElementSize; 

[id(5)] bng Type; 

r'cl(6)] long Extra; 

[id(73] bng DctaSize; 

Iid(B33 B5TR SbbName; 

rid[9)] long RieSi2e; 

Itd(10)3 BSTR Filename; 

Eid(ll)] iong Status; 

[id(12)] long Command; 

[id(13)] bng GbbPtr; 

rid(34)] bng DataPtr; 

[id{i5}3 bng AvailSize; 

[id(16)J boolean T^eadOnlyMMF; 

rid(17)3 boolean tslotify; 

rid(1833 short ValueS; 

rid(19)3 bng Value32; 

Iid(20)3 short Vaiuel6; 

[id(21)3 BSTR StrValue; 

Eid(22)] BSTTi FullPath: 



1 



[id(23)] boolean AutoSendNotify; 
[id(24)] long nHandles; 
[id(25)] long nNotifyMaps; 
[id(26)3 long SiofaSize; 
[id(273] long Ref Count: 
[id(2B)] BSTR Version; 
[id(29)] BSTR UOth: 
[id{30)] BSTR Link; 
//}}AFX_ODL_PftOP 

methods: 

// NOTE - ClassWlzard will maintain method information here. 

// Use extreme caution when editing this section, 

//{{ARX_ODL_METWOD(cebbCtrl) 

[id(43), propget] long Value(long Dim2, long Diml); 

[id(43), propput] void Value(long Dim2, long Diml, long nNewValue); 

rid(31)3 long CloseMMFQ: 

{id(32)] long AddNew(BSTR SlobName, long Unitslndex, long DimZSize, long DimlSize, long ElementSize, ion 
g lype, long Extra); 

[id(33)] long AddNewEx(BSTR SlobName, BSTR UnitsName, long Dim2Sr2e, long DimlSize, long ElementSize, lo 
ng'^ype, long Extra); 
:;P Dd(34}] boolean &etFirstGlobO: 

[id(35)3 boolean SetNextfilobQ; 
% [id(36)3vo]dEraseO; 
y rid(37)3 void EraseMMFO; 

Iid(44), propget] long NotifyHandle(short index); 
ri Eid{44), propput] void NotifyHandle(short index, long nNewValue); 
g Iid[45), propget] short aVaiue8(iong index); 
fy [id(45), propput] void aValueSfbng index, short nNewValue); 
ill [id(46), propget] long cVaiue32(iong index); 
|I| Ocl(46), propput] void cVaiue32(iong index, long nNewValue); 
1-^ Ddf473, propget] short cValuel6Gong index); 

Iid(47), propput] void cValuel6(iong index, short nNewValue); 

[id(48), propget] long ValueSt>(long n); 

[id{4B), propput] void ValueSDOo^^S n, long nNewValue); 

[id(38)] void Insert(long value, long index); 

£id(39)3 long Resi2eMMF(long NewSize); 

[id(40)] void SendNotifyClong NotifylD, long Value); 

[id(49), propget] long NotlfyMap(long index); 

Iid(49), propput] void NotifyMap(long index, long nNewValue); 

[id(41)3 boolean FormatMMFfiong NotifyLimit); 

[id(42)] long IndexOf (BSTR ^iobName); 

[id(50), propget] boolean NotifyOnChange(BSTR GiobName); 

rid(50), propput] void NotifyOnChangeCBSlT^ SlobName, boolean bNewValue): 

//}}AFX_ODL„METHOD 

■ [idCDISPID^ABOUTBOX)] void AboutBoxQ; 

}; 

// Event dispatch interface for C&lobCtrl 



[uuidC5F20D2D5-7B8i:-llbl-9A9B-020701D45A6B), 



helprJringC'Event interface for &lob Control") ] 
dispinterface _D91obEvents 
{ 

properties: 

// Event Interface has no properties 

methods: 

// NOTE - CiossWizard will maintain event information here. 
/ / Use extreme caution when editing this section. 
//{{AFX_ODL_EVENT(CSlobCtrI) 

[id(I)] void Change(short PropID, short Vaiue, long SendID); 
v'/DAFX.ODL.EVENT 

1: 

// CioBs information for C&lobCtrl 

[uuld(5F20D2&6-788C-llbl'9A9B-020701045A6B)Jicensed, 

helpstrirvgC^eiob Control"), control ] 
&>class &iob 

t ~ 

■ f [default] dispinterface _D&lob; 

■ '' [default, source] dispinterface _L)SlobEvents; 

I 

y7{{AFX_APPEN5_ODL}} 
v^^}APX_APPEND_ODL}} 

}; c 



// Copyright 1998, 1999 SPX Corporation 

// ^lobCtLcpp ' Implementation of the CSlobCtrl ActiveX Control class, 

'#tnclude*'stdafx.h'^^ ' ' ' ■ ■ ' ^ • - 
■#include."eipb.h". ^ • • 

■-#indude"ebbCtLH" • 'v ; vV " ' V' - - ' ..V - ,.: 

#include "&iobPpg.h" 

#rnciude "sys/types.h" // for file status buffer „5tat 
#include "sys/stat.h" // for _fstat file .status call 

#ifdef_DEBU& 

#def ine new t>EBUe_NEW 

#undef THI5.FTLE 

static char THIS.FTLEQ = _FILE_; 

#endtf 

#def ine MIN^FILESIZE 8192 
##ine lO&JEKkOkS FALSE 

.HANDLE myhWnd; 

h4|PLE ADhlnstance; 
un4^ed char bResFlcg; 
HAK|)LE *iaModules; 
int "^iafilobal; 
B511 saSIobal; 
CStHng" ' reftemp: 

//BtSbL Linebdaug = false; 

LPCTSTR m_Message = "msgSiobChange"; 
//long BrtUst[323; 

// HELPER FUNCTION PROTOTYPES -RK 
CString &etName(CString); 
long Power(int); 

void LogErrorSTring(CString errstr); 
IMPLEMENT_DyNCftEATE(CSlobCtrL COieContro!) 

/////////////////////////////////////////////////////////////////// 
//Register for an external windows message 

UINT USER^VALUECHANSEb = f<eqisterWindowMessage(nn_Message); 

///////////////////////////////////////////////////////////////////////////// 
// Message map 

BESIN„MESSA&E_MAP(CeiobCtrl COieControI) 
//{{AFX_MSe_MAP(C&lobCtrf) 
//}}AFX_M5£_MAP 



0N_0LEVERB(AFX_ID5_VERB_PR0PERTTES, OnProperties) 
ONi_REei5TtRED_MES5 A<5E(USER_VALUECH ANSED , OnValueChanged) 
ENlD_ME5SAi?E_:MAP0.. . ■ ,•. •. 




// Dispatch map 



BEeiN_DIS.PATCH_MAP(CSIobCtrl,COleContro!) . • • . . 

DISP_PROPERTy_EX(CSlobCtrl, "bimlSize", eetDimiSizc, SetDimlSizc, VT_I4) 
DISP_PROPERTY_EX(CGlobCtrl, "DimZSize". SetDimZSizc, SetDimZSize, \rr_I4) 
bISP_PROPERTy_EX(CSlobCtrl, "ElementSize", fietElementSize, SetElementSize, VT_I4) 
t>ISP_PROPERTY_EX(CSlobCtrl, "Type", GetType, SetTypc, VT_I4) 
DISP_PftOPERT/_EX(ceiobCtrl "Extra", SetExtra, Setextra, VT_I4) 
DISP_PROPERT/_EX(CeiobCtrl, "DatcSize", SetDctaSize, SetDataSize, VT_I4) 
I3tSP_PROPERTy_EX(Ce)obClTl, "SlobName", SetSlobName, SeteiobName, VT_BSTR) 
tfl:5P_PROPERTy_EX(CelobCtri, "FileSizc", SetFileSize, SetFilcSize, VT_I4) 
il:SP_PROPERTY_EX(ceiobCtrl, "FileName", GetBleNome, SetFileName, VT_BSTT?) 
ilSP_PRpPERTy_EX(CebbCtrl, "Status", SeiStatiis, SctStatus, VT_I4) . 
§l:SP_PROPcRTy_EX(ceiobCtrl, "Command", SetCommand, SetCommand, VT_I4) 
;ti:SP_PROPERTy_EX(C&lobCtrl, "SlobPtr", SeteiobPtr, SetfilobPtr, VT_I4) 
6}r5P_PROPERT7_EX(CelobCtrl, "DataPtr", SetDataPtr, SetDataPtr, VT_I4) 
pisP_PROPERTy_EX(CSiobCtr!, "AvailSize", SetAvailSize, SetAvailSize, VT_I4) 
"!|iESP_PROPERTy_EX(CSlobCtrl, "ReadOnlyMMF", SetReadOnlyMMF, SetRcadOnlyMMF, VT_BOOL) 
irSP_PROPERTy_EX(CGlDbCtrl, "Notify", SetNotify, SetNotify, VT_BOOL) 
E|ISP_PROPERTY_£X(CebbCtrl, "Vaiue8", SetByteValue, SetByteVaiue, VT_I2) 
:|ilSP_PROPERT/_EX(CSbbCtrl, "ValueBZ", &etLValue, SetLValue, VT_I4) 
.DisP_PRC)PERTy_EX(CGlobCtrl, "Vaiuel6", SetlValue. SetlValue, \n"_I2) 
:i5IS?_?ROPEKTy_EX(CeiobCTrl, "StrVaiue", SetStrVaiue, SetStrVaiuc, VT_BSTR) 
DISP_PRO?ERTy_EX(CSbbCTr!, "FuliPath", SetFuIIPath, SetFuIlPath, \rr_BS"n^) 

DI5P_PROPER"TY_EX(CeiobCtrl, "AutoSendNotif y", SetAutoSendNotify, SetAutcSendNotify, VT_BOOL) 
DISP_PROPERTY_EX(C£lobCtrl, "nHandles", (^tNHandles, SetNHandles, VT_I4) 
DISP_PROPERTY_EX(C<51obCtrl, "nNotifyMaps", SetMNotifyMaps, SetNNotifyMaps, VT_I4) 
DI5P_PROPERTy_EX(C»bbCTr!, "GbbSize", SctGiobSize, SetSlobSize, VT_I4) 
DISP_PRO?ERTy_EX(CSbbCtrl, "Ref Count", SetRef Count, SetRef Count, VT_I4) 
DIS?_PROPERTY_EX(CebbCtrl, "Version", 6etVersion, SetVersion, VT_BSTR) 
DISP_PROP=RT/_EX(CSbbCtrl, "UOM", &etUOM, SetUOM, VT_BSTR) 
DISP_PR0PER7y_EX(CSbbCtrl, "Link", SetLink, SetLink, V7_BSTR) 
DISP_FUNCnON(Ci5bbCtr! , "CloseMMF" , MMFCbse, VT_I4, VTS_NONE) 

DISP.FUNCU ON(C5bbCTri, "AddNew", MMFAdd&bb, VT_I4, VTS.BSTT^ VT5_I4 VTS_I4 VTS_I4 VT5_I4 ViS_I4 VT 

DISP_FUNCTLON!(CeiobCtrl, "AddMewEx", MWFAddSlobEx, VT_I4, VTS.BSTl^ VTS.BSTC \rrs_I4 VTS_I4 V i S_I4 VTi 

DISP_FUNC7ION(CSiobCtrl, "&etFirstebb", SetFirstSbb, VT_BOOL, VT5_N0NE) 

DISP_FUNCnONl(C5iobCtrl, "SetNextSbb", SetNextSlob, VT_BOOL, VTS_NONiE) 

DISP_FUNCTEON(C&bbCtrl, "Erase", Erase, VT_EMPT/, VTS_NONE) 

DISP_rUNCTION(C&bbCtri, "EraseMMF", MMFErase, VT_EMPTy, VTS_NONE) 

DISP_FUNCnON{C&lobCtrl, "Insert", Insert, VT_EMPTy, VTS_I4 VTS_I4) 

DISP_FUNCnON(C5iobCtrl, "ResizeMMP', ResizeMMF, VT_I4, VTS_I4) 

DISP_FUNCTTON(Ci5iobCtrl, "SendNotify", 5endNotif>'X, VT.EMPTY, VT5_I2 VTS_I2) 

DISP_FUNCnON(CSbbCtri, "FormatMMF', FornwtMMF, V7_BOOL, VTS_I4) 

DISP_rUNirn:ON(CSbbCtrl, "IndexOf", IndexOf , VT_I4, VTS_BSTR) 



DISP_PftOPERTy_PARAM(CGlobCtrl, "Value". GctVaiue, SetVaiue, VT_1A. VTS_I4 VTSJLA) 
DISP_PROPERTy_PARAM(C&iobCtrl, "NlotifyHandle", GetNotifyHandie, SetNotifyHandle, VT_I4, VTS_I2) 
OISP>RpPHRTy_PARAM(CeiobClTl< "cValucB" , .&etAbVqlue., Set Ab Value, VT_I2 , VTS_I4) 

' ■•■'•DISpIpRiOPERT/_PARAM(CGlobClTl, "aVaiue32". SctAIValue; SetAlVdiue, VT_I-4, VTS_-I4) 

..; •.DISP_PROPERTYZpARAM{CelobCtrl, ^aValy^ 

tji5Pl)?R6P3?TV_PA SetValueSD, SetVdluEsb; VT_I4, VTSJE^i)" - • •• ' " •" . ': • 

DISP_PR£:»'ERTy_PARAM(CeiobCtrl, "NotifyA^ap", SetNotifyList, SetNotifyUst, VT_I4, VTS_I4) 
DISP_PROPERT/_PARAM(CGlobClT!, "NotifyOnChanpe", SetNotifyOnChonge, SetNotifyOnChange, VT_BOOL, VTS_B5TR; 
DISP_DEFVALUE(C&.lobCtrl,"Value32"). 

7>0}AFX:iblSPATC-H_:MAP : ' ■' - '' ■'■ ' .- ' ' '■ ' • 

• DISP_FUNCTTON_Ib(C£lobCtri;"AboutBo>f", DISPID_ABOUTBOX, AboutBox, VT.EMPTV, VTS_K!ONE) 

END_!:)ISPATCH_MAPO 



nuiNiiJunijiiiiiiniiiinnninifniniiinnuiuiiiiiiiiiiiiiiiiiJiii 

II Event map 

BE#N_EVENT_MAP(C&lobCtrl, COleControl) 

/MAFX_EVENT_MAP(CeiobCtrI) 
. ^.l/ENT-CUSTOMC'Change"^ FireChange, \n"S_I2 VTS_I2 VTS_I4) 

/^p}AFX_EVENTJAAP 

en|_even!t_mapo 

jmi//jnjiJijjJijJin/jjnjJiJiiJiiiiiniuiiiiiiiiiiJniiiiiJnJi/iiiiiiiii 

// Property "paaes 

}J "fObO: Add more property pages as needed. Remember to increase the count! 
BEiEN_PROPPASEIDS(CSlobCtrl, 1) 
^piiOPPAeElI>(C(5lobPropPcge:'.guid) 
END_PROPPA5EIDS(CeiobCtrI) 



///////////////////////////////////////////////////////////////////// f//////^ 
II Initialize class factory and guid 

IMPLEMENT_OLECREATE_EX(C&lobCtrl,"SLOB.GIobCtrl.l", 

0x5f 20d2d6, 0x78Bc, Oxlldl. Ox9c, Ox9b, 0x2, 0x7, 0x1, 0x4, 0x5a, Ox6b) 

IIIIIIIIIIIIIIIIIIIII/IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII//I/J 
II Type library ZD and version 

IMPLEMENT_OLETyPELIB(C&iobCtrl, _tlid, _wVcrMojor, _wVcrMinor) 

IllllllllllllinilllllllllJIIIIIIIIIIIIIIIIIIIIIlllllllllllllllllllllllllllll 
II Interface ir>£ 

const IID BASED_CODE IID_D<51ob = 

{ 0x5f 20d2d4, 0x7S8c, Oxlldl, { Ox9a, 0x9b, 0x2, 0x7, 0x1, 0x4, 0x5c, Ox6b 3 }; 



const HD BASED_C0DE IID_D5lobEvents = 

{ Ox5f 20d2d5, 0x788c, Oxlldl,- { Ox9q, Ox9b, 0x2, 0x7, 0x1, 0x4, 0x5q, Ox6b } 3; 

///^////7/(////////////////////////////</;/////////^ . 

// £ohtrpf tytpeHnf onmdtion ' '" '" ; -• - " • ' • 

♦ 

-Static const DWORD BASED_CODE _dw&lob01eMisc = 
OLEMISC„ACTT\/ATEWHENVISIBLE I ; 

^ ' OLEMiscjNsjDEDUT \ - * " * V ' • ; \' * *' ' ' *. 

OLEMISC.CANTUNKINSIDE | . 
0LEMISC_REC0MP05E0NRE5IZE: 

IMPLEMENT.OLECUTyPE(cebbCtrl, IDS_&LOB, _dwSlobOleMisc) 

// C:f lobCtri::CeiobCtrlFactory::UpdciteRegistry - 

// -j^^ds or removes system registry entries for C&lobCtrl 

ioOl ceiobCtrt::C&iobCtrlFactory::UpdateRegiStry(BOOL b"Register) 

TODO: Verify that your control follows apartment-mode! threading rules. 
/9 Refer to MFC TechNote 64 for more information. 
IJ, If your control does not conform to the apartment-model rules, then 
fi you must modify the code below, changing the 6th parameter from 

dfxRegApdrtmentThreading to 0. 

t^(bRcgister) 

return Af xOleRegisterControlCiass( 
Afx&etlnstanceHandleQ, 
m_clsid, 
mJpszProgID, 
ID5_GLOB, 
IDB.eiOB, 

af xReg A part ment Tn r eadi ng , 
' _dw&lobOleMis'c, 
„tlid, 

^wVerMajor, 
_wVerMinor); 

else 

return Af x01eUnregisterClass(m_cistd, mJpszProgID); 



///////////////////////////////////////////////////////////////////////////// 
// Licensing strings 

static const TCriAR BA5ED„CODE _szLicFi!eNameO = „T("eiobJic"); 

static const WCHAR B^AS£)::>_COt>£ _szLic5TringO = 
L"Copyright (c) 1999 5PX"; 



jn/llllllJI!JIJ]UIUJIII{llJN 
// C(?fobC1fi::CSiobCtrlFacr^^^^ '-■ ' ' " : ' 

// Checks for .existence of a user, license \ - . 

BOOL Ceiob(:trl::Ceiob£tr!Factory.:VerifyUScrliicenseO 

{•■•-■• ■ * 

return Af xVcrifyUcFileCAf xSetlnstanceHandleQ, _szLicFilcName, 

Jiifi/iNi/n/ii/jiiNniiiniiiii/ii/iiiiiiNini/iiniunn/ii/iiiJiinin 

// C<?lobCtrl::CSlobC1rIFactory::SetLicenseKey - 
// Returns a runtime licensing key 

b6|?L CS-lobCtri-.ceiobCtrlFactory-eetUcenseKeyCD word dwReserved, 
^TR FAR* pbstrKey) 

... :i(pbstrfCcx==NUU,). . • 
g;i return FALSE; 

fipbstrKey = SysAllocStringLszLicString); 
:.return {*pbstr}Cey != UUiL): 

1 0 



j}^/////J/J////////////////////////////J////J/////JJJJ////////////////////// 
/4€ebbCtrl::CSlobCtrl - Constructor 

CSlobCtrl".C&lobCtrlO 

{ 

lnitiaIi2eIIDs(SIID_Deiob, &IID_D&lobEvents); 

// TODO". Initialize your control's instance data here. 
5etlnitia!5i2c( 32, 32 ); // Force to have c certain size at siariixp 

IpLost = NULL: 
bView = NULL: 
s_hRleMap = NUU.: 
hFiIeMapT=NUU-; 
f = NULL; 
eiobLock = NULL; 
MMFLock= NULL; 
ffi_RleName = "C:\\eLOSMMP: 
m_RleSi2c = MIN_FILESIZE; 

eiobPtr = 0; 
m_Notrf y - f aise; 

} 



y/niNJHjiuiniNHiiinjnu 
')%\^c^v\'<-^^^ 

// TODO: Cleanup your control's instance data here. • 
. RemoveNotify(&lobPtr,&6tSaf eHwndO): 

lpView->RefCount— 

U.nmapViewOfFile(ClPVOrD)ipview); 

SiobPtrrNULL; 

lpView=NULL; 

lpUist=NULL 

CioseHandie(s_hFilcMap); 

CloseHandle{f); 

)J 

Lfl(eiobLock) delete SlobLock; 
#|obLock = NULL; 
i^(A\MFLock) delete MMFLock; 
MMFLock=NULL; 



/yj4////////////////////////////////////J////////////////////////y^ 
//:|^lobCtrl;:OnDraw - Drawing function 

voict CSlobCtri::OnDraw( 

. C!>u* pdc, const electa rcBounds, const CftecrA rclnvaiid) 

{ 

// TODO: Replace the following code with your own drawing code. 
- CRect r; 

CPictureHoider pi ct; 

if (lAmbientUserModeO) { 

r ' rcBounds: 

n,right = r.ieft + 31; 

r.bottom ~ r.top + 31; 

pict.CreateFroTT\Bitmap(IDB_SLOB); 

pict.Render(pdc,r,r); 

SetControlSi2e(32,32); 
} else { 

ShowWindow(SW_HIDE); 

} 



///////////////////////////////////////////////////////////////////////////// 
// C£lobCtrl::DoPropExchange - Persistence support 



void CSlobCtrl::DQPropcxchanQe(CProp£xchange* pPX) 



{ 



- • long ret;'"' : \ • C%'\ '" ,7 ' *" . - ' 



* CString strRcsult; • • . • . ' ; 

Exchange VersionCpPX, MA|i£LONSLwVerMinor, Iw^VcrMajpr)); 




- • // TODO: Call PX_ functions for each persistent custom property. 




5etFileh3ame(m_HlcName); 

7/ make SlobName persistent 
PX^String (pPX, _T("SlobName"3, tn.eiobName, ""): 
Set&lobName( «uSlobNan\e ); JJ look up the fiiob for this name, should relookup 



/jknnnnjiuiJjjfjjjJiJjJi/iJiiujJinnnnnNiniui/iu^ 

//iCGtobCtrl-OnRcsetState - Reset control to default state 
voici CSiobCtr}::OnReset5tcteO 

COleControl::OnResetStatc0; // Resets defaults found In DoPropExchange 

// TODO'^ Reset any other control state here. 

} 

////////J/.//'J/////JJ/J////W/J/////J///J/J/J//J/J/////J///////////////////J/ 
// C&iobCtri::AboutBox - Display an "About" box to the user 

void C&lobCtrl::AboutBoxO 

{ 

CDiaiog digAboutCIDD.ABOUTBOX.SLOB); 
dlgAbout.DoModalQ; 

} 



///////////////////////////////////////////////////////////////////////////// 
// C&lobCtr! message handlers 



y PX3ool(pPX^"AutoNotify")A-AutoNotify^ue); 



^kt = SetVisibleO; 



} 



long CSiobCtri::&eti5iobIndexO 
{ 



// TODO*. Add your property handler here 
if(GiobPtr) 

; return (int3(eibbptr>"(int)lpyiew; - . - 
. return -^1; • 

void CSIobCtr!::5etSlobIndex(bn3 nNewVaiue) , 
I J TODO: Add your property handler here 

if '((hNewVaiue >=apView->Fir5tSloby.i'd *(nNfewValue <= lpVieW7>Ne>:tAvaiO) :7/ in range 
{ ■ . ■ 

ftemoveNDtify(&iobPtr,&etSafeHwndO); 

eiobPtr = (tSlob *)((int)lpView + nNewValue); // hope cxilier knows what he*s doing 

if (GlobPtr) 

{ 

datasize - GlobPtr->datas]2e; 
J 5etSlobNbme((LPCT5TR)eiobPtr->name); 

£1} 
}« 

SetModifiedFlagO; 

} 

iong'CGlobCtrl::&etDiml5izeO 

M TODO: Add your property handler here 
i|(&lobPtr}' • 
: 15 return 5iobPtr->diml; 
neturn -1; 

} 

void C&iobCtrl::5etDiml5i2e(bng nNewValue) 

{ 

// TODO: Add your property handler here 
if (SbbPtr) 

SlobPtr->diml = (short)nNew Value; 
SetModifiedriagO; • * ' 

} 

long CeiobCtri::&etDim25i2eO 

{ 

// TODO: Add your property handier here 
if (&bbPtr) 

return SlobPtr->dim2: 
return -1; 

} 

void CSlobCtrl::5etDlm25i2eCiong nNewValue) 

{ 

// TODO: Add your property handler here 
if (eiobPtr) 



&bbPtr->dim2 = (short)nNewValue; 
SctModifiedFlagO: 

>ng CGlc6Ctrl:;GetElm^ v-.. ... 

// TODO: Add your property handler here * 
if (GlobPtr) 
return &lobPtr->eltsize; * 

fetU!^n>l; -•••:*- -J -.r" - ] ''- r — - 

void CeiobCtri::5etElementSize(lon3 nNewVaiue) 
{ 

// TODO: Add your property handler here 
if (SlobPtr) 

eiabPtr->eltsi2e = (short)nNewVa!ue; 

&tModifiedFlagO; 

} "I 

.ion|'CGlQbCtrl::&etTypeO . 

J? TODO: Add your property handler here 
rj (&lobPtr) 

return &lobPtr'>type: 
rrfeturn -1; 

} i 

voiB CSlobCtrl::5etTypeCiong nNewVaiue) 

{ ''^^ 

ii TODO: Add your property handler here 
if (SlobPtr) 

SlobPtr->type = (short)nNewValue; 
SetModifiedriagO' 

} 

loHG CGbbCtrl::&etExtraO 

// TODO: Add your property handler here 

if (SiobPtr) 

return f51obPtr->extrG; 
return -1; 

} 

void CSiobCtrt::SetExtraClong nNewVaiue) 

I 

\. 

IJ TODO: Add your property handler here 
if (eiobPtr) 

&iobPtr->extra = (short)nNewVaiue; 
SetModrfiedPiagO^ 

} 



lorig CGlobCtri::&etData5i2eO 

//TODO; Add your properly "handler he^^ ■ \ ' ' 

V 1f (&ipbPtr). ./ : - *^ ;.;•■-:.*• - . 

return 0; 

} • . - • * 

.-r-vfifd GSlobGirbSetDat(i5i2e(long TiNe;wVdu^) /; - - . ; / - - - . :*".- . '^^ 

// TODO: Add your property handler here 
if (ebbPtr){ 

SlobPtr->datcsi2e = (short)nNew Value: 

datasize = &lobPtr->datasi2e: 

} 

SetModifiedFlagO; 

} 3 



BS^R CSbbCtrl-ecteiobiSiameO 

^^tring strRcsuit: 
ij/TE nam[17]; 
irit i; 

M (eiobPtr) 

t _ 

, 0 for (i=0;i<16;i-*-t-) nanip] = &!obPtr->name[ij; 
11 nam[163= '\0'; 

strRcsult = nam;//ro_61obName://nam;//&iobPtr->rame; 

I- 

return strResulT.A!iocSys5tringO; 

} 

void CSlobCtrl::Set61obName(LPCTSTR IpszNewValue) 
{ 

CString Mute>cNan:\e; 

// Chanplng value of SiobName does read of Siob. If found, new properties are seen. 

ftemovcNotify(SlobPtr,£etSafeHwndO); 

SbbPtr = (tSbb ^) MMFSet&bbPtr(ipS2NewValue); 

if (eiobPtr) 

{ 

datosize ~ 51obPtr->datasize: 
m_&bbName = ipszNewValue; 

} 

else 

{ 

m_GbbName£mptyO; 

} 



SetModifiedFlagO' 



} 

• long. C(^lobCtrl::&etFneSi2eO . . • , .- , 

{■■ - ■;■ ■■■ : ■■■ ■•; ■ :• • 

// TODO; Add your prppcrly handler .here . • 

return m_FileSi2e; 

J . . 

.-yaidrSlobCti:l::SctFiJcSi2eClring-.nhlewVj^ _ '• 

// TObO: Add your property handler here 
SetModifiedFiagO; 

} 

B5TR ceiobCtrl-.&etRleNameO 
C§fr\ns strResult; 

^ TODO: Add your property handler here 

^frResuit = m„rileName; 

return strResuit.AliocSysStringO; 

voi dCeiobCtr l::SetFi ieName(LPCT5TTi ipszNewVaiue) 

{ [ 

long retval; 
dString oldf ilename; 
S^tring Current&lobName; 

G^rrent&iobName = SetSiobNameC); 
btdf iienante = m_FiieName; 
m_FiieNam£.FormatC7asMps2NewVaiue); 
m_FileSize = 819Z; 

CString x; 

//AfxMessageBoxC'Setting file name."); 
retvd - MMFCreoteO; 

//x.Formct("MMFCreate returned: %i\retval): 
//AfxMessageBox(x); 

if (retval != OK) { 

//Af xMessageBoxC'Set Filename failed."); 
m_nieName = oldf ilename; 
retval = MMFCrecteQ; 
if (retval b 0K){ 

m_FiieName = "SbbMMF"; 

MMFCreateQ; 

SeteiobNkime(CurrentSlobName); 
ThrowError(0,"f ailed to create MMF!*'P); 

} 

SetSlobNlGme(CurrentSlobMame): 



ThrowErTor(0,'Tnvalid FiieNamc." ,0); 

3 . 

■■ . ://AfxMcssc9eBDX("Rk Name set.*); . . 

\ • Set&iobNarne(CurTent&lobName); • 
•" SetModif iKiPogQ; . . . •, .. . . ■ •. 

♦ 

lon9.CeiobCtrt::&etStGtusO ■ ■ '■ '■ 

{ . . , . 

• if'{GroBRtr)" ■;" ' " . ' . '■'-"'r^- " ■ - 

■return &bbPtr->status; .■ •• ■' 

return -1; 

} 

void CfilobC+rl-SetStatusOong nNewVduc) 

{ 

/f TODO: Add your property handler here 

i (ebbPto{ 

::y SiobPtr->status = {short)nNewVaiue; 
K SfendNotify(eiobPtr.,lpView j:D5TATlJS,(shorOnNewValue); 

t ' ' 
■SetModifiedFlagO; 

long C&lobCtrl"&etCommandO 

{ " • • • ' ' 

:jf (eiobPtr) 

- ;| return SlobPtr->command; 
-return -1; 

} 

void C&lofaCtri::5etCommandClon5 nNewValue) 

{ 

// TODO: Add your property handler here 
if (eiobPtr) { 

&lobPtr->command - (short)nNewVaiue; 

5endNotify(SlobPtr,ipViewJDCOMMANDX5hort)nNewVaiue); 

} 

SetModifiedFiagO; 

} 

long C&lobCtri::&etSlobPtrO 
{ 

// TODO: Add your property handler here 
return (long)SlobPtr; 

} 

void C^^bbCtrhiSetSiobPtrClong nNewVaiue) 



{ 

// TODO: Add your property. handler here 
RemoyeNotify.(SlobPtr,&etSaf eHwndO); -■ ' _ . 
* ; GlbSPtr-^Ct&lob *')nNew Value; ' ' // Hope caller know what he's doing; 

<iatasi2e =^&lobPlTr>datasi2e: ' , . ' . , . - 

-/Sef&iob'r^imeCCLPCTT'Sl^ 

SetModifiedFiagO' 

} ■ ■ ■ ' 

// TOt>0: Add your property handier here 
if(&lobPtr) 

return (long)(&(GlobPtr->data));// + sizeof (tSiob); 
else 
return 0; 

voU CeiobCtr!::SetDataPtrClons nNewValue) 
// TODO: Add your property handler here 

//:5etModifiedFlagO: 

} ' . 

lot® C&lobCtrl::&etAvaitSr2eO 
{ll ■ ■ 

TODO: Add your property handler here 
iijf (IpView) 

; ' return m.nieSize- ipView->Next Avail; 
eise 

return 0; 

} 

void C&lobCtrl::5etAvail5i2e(long nNewValue) 

{ 

// TODO: Add your property handler here 

y/ SetModifiedFiagO; 

} 



BOOL Ci51obCtrl::5etfeeadOniyMMF0 

{ 

// TODO: Add your property handier here 
if(ipView) 

return (BOOL)ipView->ReadOniy; 
else 

return D; 

} 



• void CGlobCtrl::SetReadOnlyMMF(BOOL bNewValue) 

■{. -.. ■ • 

. * V/TODO: Add your property .handier here 

JpView->tiead6niy.=*(int)bNewVdlue;' *^' - ' " - ' 

. /.SetMpdifiedFl^^^^^ • - . / ^ r. , ... : . ' • - , ' - • , ' - .* - 

BOOL CSlobCtrlr.GetNotif yO * : - 

return m_Nptify; - • * • 

} 

void CSlobCtrl::SetNotify(BOOL bNewValue) 
{ 

// TODO: Add your property handler here 

SDOLret: 
ffWND hWind; 

j||!AmblentUserModeO) { 
J ThrowError(CTL„E_PERMISSIONDENIED/This property can only be set ct runtim£.\0); 

' retura' 

fa 

f jclSlobPtr) { ■ • 

: .^5 ThrowError(CTL_E_PERMISSIONDENIED,"eiobName properly is not setAn Can not register &\oh for notification.") 
returri; 

} 

LockMe.LockO: // waits infinitely for resource to be available. 

// can use c timeout value as g parameter (ms) if 6eB\re.d. 

hWind = SetSaf eHwndO; 

if (bNew Value) 

ret = AddNotify(&lobPtr.hWind); 
else 

ret = RemoveNotify(£51obPtr,hWind); 

if (ret) 

m_Nlotify ^ bNiew Value; 

LockMe.UnlockO; 
SetModifiedFbpO; 

} 



1A 



long ceiobCtrl::&£tValue(lonQ DimZ, long Diml) 

{ • . • . 

'. long.t ■ ; .. _ • ■•■ ■ ■ 

/ if^siobPtrV .; ' • ■• ■" ' •. ' •' : ■ • ■• 

if ((! * eiobPtr->cltsi2c ) '< &lobPtr->datQSi2eX ' - • 

{•■■••••■■ 

switch (<5lobPtr->eltsize) _ . 

■ '■{• ■ ' - ' • ■"- '' '■' ■ ■" - - - ■ ■ " • ' ■-■ • ': ■ ' ■ ' V 

cose A: ' ' return i51bbPtr->datcl.Long[I3; ' • ■ • " • : • ■ . 

cose 2: return <51obPtr->data.Short[l3; 

default: return e!obPtr->datQ.Byterrt; 

} 

} 

} 

return -1; 

} % 

voii£;t:SiobCtrl::5etVaiue(iong bm2, long Diml, bng nNcwValue) 
bpg 1; 

ifl(!(lpView->ReadOn!y)) 

bi 

if (SlobPtr) 

P 1 = (DimZ * &lobPtr->dimr) + b'lmt 

if ((I * ebbPtr->eltsi2e ) < SlobPtr->datasize) 

'-^ switch (SlobPtr->ettsi2e) 

ccse 4: GiobPtr->datc.Long[l] = nNewValue; 
break; 

case 2: ebbPtr->data.Short[i]= (short)nNewValue; 
break; 

default: eiobPtr->dataByte[!] = (BYTE) nNewValue; 
break; 

■ } 

// notify controls on list of change 
//if (SlobPTr->notif y 1=0) 

SendNotify{SIobPtr,ip\newJDVALUE,0); 

} 

} 

//SetModificdFiagO: 

} 

} 



MMFCreate: Create file (or just open it} and map a View to it 

XXX »^l <l ^ XX»XXXX A AXXAXAAAXXAXXXAX J iX*XXAAAAAAXXXAAAXAXAXXXAXXAXAAAAXAA ifr:fr^»c*:ifr^^ 



bng CebbCtrl::MMFCrecte(void) 



*r**X'XA A)*.X* 



{ 



struct _stat buf ; 
int. . result j; 

^ est ring MAWT^Jame; ■ .\ 
BOOL' firstMapping; ' 

^char ."..bufferI256i ^ . ^-^v* \ ' 

//BYTE *testView; " . 

//BYTE- testReod;- * • 

BYTE *MMFLxi5tBytc; , - . 

long * 'NewFileArea: * * - - '* - . . 

long • HandleUstSize; 
- DWORD fileretva!; 
long crrcode; 



if (lpView){ 

,::|//ref temp JormatC'Ref Count" (MMFCreate) f=7oi",f); 
CI // Af xMessageBox(rcf temp); 

0 ipView->Ref Count—: 
l?UnmapViewOfriie((LPVOID) ipView); 

■^;:;;&iobPtr = NULu 

;5JlpVicw=NULL; 
■JJlpLcst=NULL; 

' CloseHandle(s„hFiieMap); 
,.,CioseHandle(f); 

1 if (eiobLock) delete &lobLock; 
;yeiobUck=NULL; 

;J 1 if(WiMFLock) delete MMFLock; 
,1MMFLock = NULL; 



//Af xMessageBox("Made it past unmapping stuff"); 

fiteretval = ::GetFuliPathName(Tn_FileName,254>uffer,NULL); 

if (f ileretval == 0) { 

m_FullPath = fn_FileName; 
} eise { 

m„FullPcth.FormGtC'7oS".{LPCTSTR)buffer); 

} 

//AfxMessageBox(m_Ful!Path); 

MMFName = &etName(m_FullPGth); 

// Initialize tiie Mutex objects 

5PX_N0TUY_MUTtX = MMFName + "NOTIFY"; 

SPX_MMF_MUTEX = MMFName ^ "MMP^' 

i^lobLock = new CMutex(faise,SPX„NOTIFY_MUTEX,NULL); 



MMFLock= new CMutex(false^P>eMMF.MUTEX.NULL); 



//AfxMessage&ox(MMFhiameJf; • 

■ •.' /* Set data associated ■ ' ' ' • • 

result.^ _stat( itL^FullPath/ 4buf }: . }// result will be -3:'if file does riot exist . 

yyif the file exists then get its filcsize 
. if (iresult) { 

if (buf ^_si2e > m^HleSize) 

: ' OldRieSize = buf ^_sr2eV ' • ' - - ' - 

}else{ * ' : • 

OidriieSize = 0; 

} 

y/DEBU6 

//temp.Fopmat("MMF FiieSize r 7od\n"^RleSize); 
i|i.ogErrorString(temp); 

/I^Create an In-memory memory-mapped file, 
f = treateFiie( m^FultPath,. 
" ; ■ SENERICJ^EAD 1 eENEKCOVRITE, ^ 

OPENLALWAYS, 
CI fIl^ATmBUTE_NORMAL, //RleAttr, 

■ i|fff"INVALIDJ-lANDLE_VALUE) ' 

i 

; I y/AfxMessiM^oxC'Cant open file"); 
//Ra!seExceptionC997,0,0,0): 

//ThrowError(0/Tnvalid Rle Name",0); //ThowError only works in properties and methods 
ve^fiirn ERR JTN VALID FILENAME; 

3 

.//AfxMessageBoxC'Rle opened OK"); 
//Srow the file 

5etFtiePpinter(f.mlnleSi2£,NULL,FILE_BE&IN); 

SetEndOfRieff); 

//Error checking? 



s_hFileMap = CreateRleMapping(f , NUa, PA&E„READ WRITE, 0, 0, MMFName /'*^ViewName*/); 
// s^hrlleMap = CrecteRieMappingC(HANDLE) OxFFFFFFFF, NULL, PA&E^READWRITE, 0, MWvFSlze, MMFName): 



zrrcode = SetLostErrorQ: 

//reftemp.Format("Error code %i (%0".errcode,ERROR_ALREADy_EXI5TS); 

/ / Af xMessa^eSoxCreftemp); 

if (errcode == ERROR.ALREADY.EXISTS) { 

FirstMapping = false: 
} e!se { 



FirstMappi no = true; 

} - 

if "Cs^hRieWiap b NULL) - ' * - . ' ' ' ' * 

// File mapping crexxfed successfully. Map a view of the file into the address space. 

IpView = (tControl *)MapViewOf Fi!e(s_hFileMap, FIlE^tAAPJW^TTE I FILE.MAP„ftEAb, 0, 0, 0); , 
if (ipVifew != NULL)- , ..... . . 

V/fill m-0*s7f^iie IS expanded.' ' * ."- - I' , *. -V* - ' 

if (m_File5ize > OldFileSlze) { - . . - . ' 

//Lo^ErrorStringCFiltin^ in new memory with 0's\n"); 
MMFLostByte = (BYTt *)((iong)lpView + OidFileSize); 
NewFileArea = m^BieSize - OidFileSize; 
memset(MMFLastByte,OJ\lewFileArcG); 

} 

i ^' y/set rest of Slob Attributes 
5 If OpView->nNotifyMaps == 0) 

.lpView->nNotifyMaps= DEF^NOT^ . . , - 

HandlelistSize = 32*sizeof (ion3)'^lpView->nNotif yMaps; 

m_MaxUnks - ipView->nNotifyMaps*32; 

ipView->5ize = m„rile5ize; // make global 

ip View->RrstSbb = sizeof ( tControl ) + HandleUstSize; 

IpLcst = (BYTE *)lpView + m_Rie5ize - sizeof (tSiob) - sizeof (int); 
p if (!ipV1ew->NextAvaiI) 

lpView->Ne>ct Avail sizeof ( tContro! ) + HandleUstSize; ' ' 

: /yreftemp.Formct("ftef Counts (MMFCreate) f =%i"i); 
//AfxMessaqeBox(reftemp); 
ipV^iew->RefCount-H-; 

.// clear out Notify array if this is the first mapping 
if CFirstMapping) { 

//AfxMessageBox("First Mapping, Clearing Norify Handles"); 
-. for (i=0;i<m_MaxLmks;i-H-3 

ipView->NotifyHandie[i3 = 0; 

!pView->Ref Count = 1; 

// f^eset giobs 

MMFReseteiobsO; 

} 

return OK; 

} 

else 
{ 

return ER;^„CAK!T_MAP„VIt W^OF^FTLE; 

} 

} 

else 

{ 



return ERR_CANT_CREATE_FILE_MAPPING ;-2; 
} . 

■return- ERR_iNVALJOFlLENAME: *■ "'■ ■ 

iiniinniiniJtiifi'iniiNiiiiiiuiniiiiNiiiiNiiiiuiiiiif 

J I Create G unique MMF view name from the MMF filename -RK 

iiNiininiiiiijiiiiNiiiiiiiiiiiijiiiniNiiiiiniiMiiiiini. 

:■■ - ■^■ .- .- ■ ■■■■■■■ ■ - -y . ■ . ; 

intij; • ■ ■ > ■ 

CString Buffer; 
int len; 

//AfxMessageBox(s); 
lien = s.GetLengthQ; 

f;/ load Buffer with spaces 
ffor. (i=Q;i<ien;i*-t-) 
Buffer: Buffer + 

ibr (i=0;i<len;i++) { 

if (s[i3i='\V){ 

rj: Buffcr.SetAt(j^[iIl: 

I 

Suffer .TrimRightO; 

// Buf f er = s.Right((len-i>l); 
Buffer-MakcUpperO; 
return Buffer; 

} 

long CeiobCtrJ-.MMFOpenCLPCTSTR riiehJame, long FiieAttr, LPCT5TR VIewName, long FileS 
•{ 

// Create an in-memory memory-mapped file 
// 

FileAttr = FILE_ATTRIBUTt_NORMAL // force it for now 
f = CrecteFile( RleNJame, 

eENERIC_R£AD ! (5ENERIC_WRI7t, 

FILE_SHARE_READ I FILE_SHARE_WRITE, 

NULL, 

0?EN_ALWAyS, 

FileAttr, 

NULL); 

if (f ==INVALID_HANDLE_VALUE) 
{ 

// McssagcBox(myhWnd_TEXTC"Cant open f ile"),NULL,MB_OK); 
return 0; 



} 

s_hFi!eMap = CreateFileMapping{f , NULL, PASE_READWRnc, 0, FileSize, VicwMame); 
y/ for nven>oi7-on!y; use ''CreateBlcMa^^^ 

;:jf.(S_hFikMQp> NULL).,^ ^ . . • ., - . '. .. 

// if (SctLostErrorO == ERROR.ALREADYJEXISTS) Messa9eBox(myhWndv_TEXT("MMF Already Exists.")/ NULL, MB_ 
•// File mapping created successfully. Map a view of the file into the address space. . 
. IpView = .(tControl «)MapViewOf Rle(s_hFileMqp, FILE_MAP_READ •] FILE_MAP_WKrrE, 0, 0, 0); . 
■../;.V-jf.;(tpyjeittJ?>vlULiO --.^-.-v ; j ■■. / .^ir: S:- ^--r-' ■■ ' :->-'-^r-- 

// View mapped successfully. ' ■ 

// To unmap the view: (Tills protects the data from wayward pointers). "UnmapViewOf File((LPVOID) IpView);" 
lpVicw->Si2c = HieSize; // make global 
lpView->Rrst&lob = sizeof ( tControI ); 
IpLast = (BYTE *)lpView + FileSize - sizeof (tSlob) - sizeof (int); 
if (!lpView->NextAvai!) lpVieiw->Ne>ctAvaii = si2cof( tControl ); 
Q return OK; 

■■«} 
■Al else 



RaiseException(999,0,0,0); 
//MessageBoxCmyhVl'nd, _THXT("£:an't map view of file."), NULL, MB_OK); 
return ERR_CANT_MAP_VlEW_OF_FILE; 



h 

else 



RaiseException(998,0,0,0); 

//McssageBoxtmyhWnd TEXTCCan^ create file mappin3."),NULL, MB_OK); 

return ERR.CANT^uREATt^FILE.MAPPINS >2; 



return 0; 



} 



MMf RemapVieiv: Close view and-reopen cs different size 



t SnfcTt Ifr TfcTfcTfr dfc" 3t 1^ A! A.' A. A. ^ X X 'A IT WtATJC Wrifc T(c"i 



^ itiAJfcl'iAJ'tA AirxAAAAAAaXX i 



long CSlobCtrl"MMFRemapView( bng newsize ) 

{ 



return MMFCreateQ; // 03/12/98 ^BK 



} 



^ A X A j*r It It A A A;A 

MA/vF£ctSlobIx: Returns index (offset) of Slob if name is found, otherwise 0 



long CeiobCtrl::MMFeeteiobIx(LPCTSTR SlobName) 
{ 

t&lob *tp&lDb; 
CString name; 



if (GlobMame != NULL) 

name = GlobName; 
else; 



return 0; • * . ' • " 

f «?r ( . . ■ • . ... . , -. • 

■ . ~ lpSbb->5!2e'&& (int)lpSlob<Cint)ipLast; " 
' Ip&lob = (telob*)C(int)lp&lob*lpaiob->size) . • ■ 

) 

if (LstrnicmpC (const chcr *)&IobName, (const char *)((teiob *)lpSiob}->name, eiob_MAME_LEMeTH ) ) 
{ 

return (int)lp&lob - (int)lpView: 

J 

fi^urn 0; 

^ _ _ 

. MMFEraseGlob: Ciear the Slob to zeroes, but leaving its space sti!! linked in. 

voi4-fc:&lobCtri::MMFErGSeSlob{ tSiob '^B ) 

int save_stze; 
/M^Sfrmg DebugStr; 

mm 

{J 

^save_si2e= &->st2e; 

//DebugStr.FormatC'SaveSize = 7o! \n" ^ave.size); 
/ /LogErrorString(DebugStr); 

memset( (BYTE *)B, 0, save_si2e); // clear all 

B.->si2e = save__si2e; // restore s[2e for linking past 



} . 

MMFFirst&iob: Returns pointer to 1st &!ob in the MMF 



f&\ob '=CSiobCtr!::MMFRrstSlDbO 
{ 

return (tSiob '')((int)ipView + ipView->First&lob); 

} 

-MMFNextAvailSiob: Scans from beginning for empty Slob of adequate size. If none, uses Next Avail pointer 

3*;> : 'Jt XJtA > ki i fc J t '3te XAA JO C A 'T W; J t ' J O A9CAAA9'lA9^ *rtrtWWr)fcT^^ A,yLAAXAAl^AA'AXA3^3A A A A A A A ^ irwj^' A A AAA*. A !k ik. A A A A X A. A 'A A !ik A * 

tSlob *CSlobCtrl::MMFNextAvailSlob( long si2e ) 

{ 

CString DebugStr; 



int lastchance=(int)lpView + m^FileSize - size - 1; 



//DEBUS • • * 

//ipeiobrMMFFirsteiobO;. ... ; ^ . ^ ;v.-*.:- /. .... /' 

//LogErrorString(bebug5trj; - * * 

. Y/ENDDEBUe . - - . V ' * ■ 

-* rfpi^;;^::*^:-. .;:'>' /-y/.^K^^^yhre-^'ob^J^^ .•**:^\'/** 

' lp&lob->si2e &(5t ((int)lperob < lastchance); // if size is nz] within range • . , . 

Ip&lob = (t51ob*)((int)lpeiob + lpSlob->size) 

){ ' . 

y/DebtjgStr.Format("Niame: %s size: %i\n", lpGlob->nameJpSbb->size); 
//LogErrorStringCDebugStr); 

if (lp&iob->nameIO] == *\0' && lpSlob->size >= size) // if has zeroed-out name and is big enough... 
return ipSiob; // return pointer to it 

falls thru loop.„no empties found 
i^Slbb = (tSlob*)((int)ipyiew + ipView->Next Avail); // eise get pointer to next one in MWvF 
'1^ ((intjlpSlob > lastchance) // is there room for it? 

■ ip&iob - 0; // no, return 0 

f feturn ipSlob; 

} 

TQpl: MMF&etSlobPtr: Siven the eiobName,f ind and return pointer to Slob, else zero 

XxixAXXXXXXXXX^XX ^t^^c^ric*:^*: XXXX XXX XXA ^tryy^ X X X XX XXX X-X X X X A X X X A X X »i>rilCT>r3tr*r^»-i^?fe3^1>rTici*rJ'r»rXTte»^^ 

bn^i CSiobCtrt::MMF&etSiobPtr(LPCTSTR SbbName) 

{ 

;tSlob *ip£bb; 
//CString temp; 



lpSbb=:MMFFirst£lobO; 

ip&lob->size && ((int)lp&bb < (int)ipLcst); 

IpSbb = (t&bb*)((int)1pSlob^ipSiob->si2e) ' . - . ' 

}{ 

/* 

if (UneDebug) { 

temp.FormatC'SbbName: 7oS\nlp5bb = 7oi , ipLost r %>] , Size = 7oi\n" .((const char '^)((tebb *)lpSbb) 
->name),lp&bb,lpLx!StJp&bb->size); 
LogErrorString(temp); 

} 

*/ 

if (LstrnicmpC SlobNome. (const char *)i(j&\ob *)ipSiob>>name, eiob_NAME_LENSTH )) { 
//Unzbebug = false; 
return Cint)lpSlob;//true 32-bit pointer 

} 

} 

//LineDebuQ = false; 



return 0; 

} ■ ' _ . - 

inti; * ^ ' 

BYTE* temp; - 

:^ long* MapPtr: : . . . \ ^ 

■'\.ipng jddtadoiint; • / \ rnO.;'.-.V, /*/'-'.■'■;.:/>'';.:'.. ^- ; 

for( ' ; ^ * ' * ' ' - 

ipSlob=MMFFirste!obO; 
lp&lob->si2e (int)lp&lob<(int)lpLast; 
ip&bb r (tSlob*^X(int)lp6!ob+lpS!ob->si2e) 

dotacourrt = ]pSiob->diml * lpSlob->dim2 * lp&iob->eltsi2e; 
' '1 temp = (ByTC*)lpSlob ^ sizeof (teiob) + datacount: 
- for (i=0:j<!pView->nNotifyMaps;i++) { 

// ip&lob->notifymapn] = Ct 
J' MapPtr = (lpng*)temp + 1; . 
' '*MapPtr = 0; 

;}! } 

ip&lob->command = 0; 
;i lp&lob-:^atus = 0; 

iiieturri; 

} ;■[; 

void C&iobCtr!::MMFClear&iobBit£(bn3 index) 

{ 

tSlob *lpSlob; 

long maplndex^itlndex; 

BYIP^ temp; 

long* MapPtr; 

long datacount; 

maplndex - index/32; 
bitlndex = index - maplndex*32; 

for ( 

lpebb=MMFFirstSlobO; 

((int)!peiob <= (int)ipUist) Ip&bb->si2e; 

Ip&bb = (tSlob*X(int)lp&iob+ip&bb->si2e) 

){ 

datacount = lp&bb->diml * lpSbb->dim2 * lp&bb'>e!tsi2e; 
temp = (ByTE*)ipSbb + sizeof (t£bb) datacount; 
MapPtr = Cbng*')temp + maplndex; 

//ipSbb->notifymapImapIndex3 i= (NOTTFYMASK " BTtListfbitlndex]); 

'^hka^?^v i= (NOTlFYMASK: ^ (l«bitXndex)); 

if (NotrfyLi^IsEmpty{lpSiob)) lpSbb->ptrMap = 0; 



} 

return; 

}. y . / ..^ \ . , 

iong CSIpbCtri:;W*iMFCl^SIobBit(tGbb*. SPtrjong -index) . . ; , 

tGlob ^IpSlob: ' 
long maplndexj^itlndcx: 
BYTE* tcmpj. 

' r long count; ' */ . * * * " * / • • - 

- long datocount; 

count = Oj 

maplndex = index/32; 
bltlndex = index - maplndex*32; 

ip&lob=MMFRrst&lobO; 
(Ont)lp&lob <= (int)lpLast) &i lpSlob->5i2e; 
r: ' ipeipb = (teiob*}(Cint)lpSiob+ip&iob->si2e) 

■:;){ ' 

dctacount = lp&iob->diml * lpSlob->dim2 * ip&lob->ettsi2e; 

temp = (ByTE*)lp&lob sizeof (tSlob) + dctacount; 
' MapPtr = (iong*')temp + maplndex; 

//lp5iob->not(fymapImapIndex] d= (NOTEFYMASK " BrtUst[bitIndex3); 

rf (*MapPtr & (l«bitlndex)) { 
;'f; * count++; ' ' ' 

■ n if{SPtr== lpSiob){ 

H ^MapPtr d= (NOlTpyMASK " (l«bitlndex)); 

count—; 

if (NotifyUstlscmpty(ipSiob)) 1pSiob->ptrMap - 0; 

} 

} 

} . 

return count; 

} 

BOOL CSiobCtrt::NotifyListIsEmpty(ti51ob '"IpiSlob) 
{ 

BYTE* temp; 
long* MapPtr; 
int I: 

BOOL isEmpty; 
long dctacount; 

isEmpty - true; 

dctacount = lpSlob->diml * lp&iob->dim2 * ip&iob->eltsi2e; 
temp = (ByTE*)ipSlob + sizeof (tSiob) + dctacount; 
MapPtr • (iong*)temp; 

for (i=0;i<lpView->nNotifyMaps;i-^-^) { 

OA 



if (*^(MapPtr-^i)) isEmpty = false: 

} 

• return isEmpty;' '• . ^ ' • ' ' , ' ' ■ 

void C&lobCtrl::SetBitMap(TSlob* eiobPtrJbng tm^^^ 

■{ ' - . ' ^ 

long,mapIndex>rtInde>c; - : 

long'datacount; ' . - 

maplndex = index/32; 
bitlndex = index - maplndex*32; 

datacount = SlobPtr->diml * GlobPtr->dim2 * SlobPtr->eitsi2e; 
rf ;^SlobPtr->ptrMap == 0) { 
^:feiobPtr->ptrMap = sizeof (t&lob) + datacount; 

}| 

^lobPtr->notifymap[mapIndex3 i= BitList[bitIndex]; 

tdmp = (ByTc*)&iobPtr + eiobPtr->ptrMap; 

MapPtr - (lon5*)temp + n^aplndex; 

mapPtr 1= (l«bitlndex); //BitUst[bitIndex]; 

} f 



long CSbbCtrl::MMFCloseO 

■{ 

// TODO: Add your dispatch handier code here 
//reftemp.Format("Ref Count- (MMFCIose)f=7or',f); 
// Af xMessageBoxCreftemp); 
lpView->Ref Count--; 

RemoveNotffy(SlobPtr,&etSafeHwndO); 

UnmapViewOf rile((LPVOID) IpView); 

lpView=NULL; 

lpLast=NULL; 

ClDseHandie(£_hFileMap); 

return CloseHandle(f); 

} 

iong ceiobCtri::MMFAddGlobCLPCT5TR GiobName, long Unitslndex, iong DimZSize, long DimlSize, long ElementSize, long T 

ype, iong Extra) 

{ 

int count ,This£lobSi2ei.eftOverCount,i; 
iong bitmapioc; 
BYTE* temp; 
//CString DebugStr; 



bng'^ MapPtr; 

ftempveNlotiiy(GlobPtr,&etSafeHwndO); - . , 

. if (!Dim2Si2e) ' / - .// if zero,. make = 1 ^ • . ^ 

if (!DimlSi2e) \ * ^ 

DimlSize = 1; • 

* //LbgErrorString(DebugStr'); ' ■ '"*' • ' " * ' ; 

SlobPtr = (tSiob *^)MWiF&ctSlobPtr( SlobName ); // first look for one by this -name 

//DebugStrJormatC'Prev Slob Ptr: %i\n",SbbPtr); 
//UgErrorStringCDebugStr); 

rfil(GlobPtr) // found a previoos, maybe can reuse space 

:'?MMPErasceiob{ SlobPtr); // clear it, maybe Next Avail can reuse it 

di|unt = DimZSize * DimlSize * ElementSize; // calc data size 
. flfiisSiobSize = j[sizeof (tSlob) + count 3) & -2:// add size of Slob and put on even A-byte boundary 
b[.i"tmaploc = ThisSlobSize; 

"fliisSlobSize += sizeof (long) ipView->nNotifyMaps; 

//DebugStr ^ "Looking for space for Siob\n"; 
/^(LogErrorSiringCDebugStr); 

iljobPtr = MMFNextAvat !Slob( ThisSlobSize ); // get pointer to area of adequate size 

vl^DebugStr.FormatC'Found Space at: 7oi\n",(long)&lobPtr); 
//LoaErrorSTrino(DebugStr^; 

while (iSlobPtr) // no room, make bigger 

{ 

if ClpView->Ref Count > 1) { 

TnrowError(CTL„E_PEI^MISSIONDENIED,"MMF can not be expanded. Too many connec7ion<.\nClose ali other appii 
cations and try again.")' 
return NULL; 

} 

//DebugStr.FormatC'Resizing for 7oS\n",SlobName); 
//LogErrorStri ng(Debug5Tr); 

//bebug5tr.Format("FileSize Before = %!\n",m_File5ize); 
//LogError5tring(Debug5tr); 



//LineDebug = true; 

m_RleSize (ThisSiobSize + 4095); // calc new size of file 
m^FileSize &- -4095; // make size a multiple of 4096 



//Debug 



//DebugStr.FDrmctC'FiieSize Ancr = 7o!\n'^m_Fiie5i2e); 
//LopError5tring(Debug5tr); 
.//* 



^MMFCreatcQ; . . . V/xtnmap/remap view .^o increase size^- 

•.//pebugStr-FormatC'SIobPtr After tiemap: %i\ri''jeiobPtr); . .- 
■ SetModif iedFlagO; // properties have changed 

} 

// setup member variables 

datasize = count; 

/4 setup Slob data variables 

PlftOverCount = SlobPtr->si2e - ThisSlobSize; // subtract this size from size that might have been in 

§(obPtr->S[2e = ThtsSlobSize; 

ijobPtr->dim2 = (short)n>im25i2e; 

^lobPtr->diml = (short)DimlSize; 

;^obPtr->eltsi2e = (short)ElementSize; 

i^obPtr->type = (short)Type; 

SiobPtr->UOM = Unitslnde>c; 

^eiobPtr->extra " (short)Extra; 

•^igobPtr->command 0; 

:;i)obPtr->status = 0; 

!^lobPtr->ptrMap = 0; //bitmaploc; 

Simp = (ByTE*>SiobPtr + brtmapbc; 

'qpr Ci=0;i<lpView->nNotifyMaps;i++) { 

//&bbPtr->nctifymap[i3 - 0; 

MapPtr = (iDng*)temp + i; 

*MapPtr = 0; 

-} 

GlobPtr->dctcsi2e= count; 

memset( S!obPTr->name, 0, £iob_NlAMt„LEN£Tr! ); // clear name to zeroes 

.strncpy( (char obPtr->name), ClobNiame, &bb_NAME_LEN£TH ); // copy name in 
if ((int)SlobP7r — ((int)lpView + lpView->NextAvaff)) // if &\oh is gt end of file (not reusing dt 
her area) 

!pView->Next Avail TnisSbbSize: // incr nextavcil pointer 
eise //if bytes left over, make new [size] header for empty space left beyond this &bb 
{ 

if (Lef tOverCount > ((nt)(st2eof (tSbb) ^ sizeof (bng) * tpView->nNotif yMaps)) { 

((tSbb *)((int)£]obPtr + Tni£'SlobSize))->size = LeftOverCount; // put a [size] value post this £!ob to 
reclaim s.p:xc^ beyond 
} else { 

5bbPtr->size = TnisSbbSize + LeftOverCount; 

} 

} 



//DebugStr = "Slob successfully inserted. \n'^; 
//LogErrorStringCDebugStr); 



SetModifiedFlagO: 

..v^return (int)&lobPtr: . ;// returns'SIob pom^^^ . , ^„ * . ' 

tehg^CSraBctrkiMA^FA^ bng'D^mZStzl/ long ;DWl5]ze', jcmg Elam^tafe; ic 

ng Type, long Extra) *; ' ' - 

{■■... _ .* 

int status ,uom; . - . , * : , . . - - . - . . 

; int cbunt; *- * - ■ ; ' '.**■ - 

//CString.temp; 

count = DimZSize * DimlSize * ElementSize: 
if (UnitsName != NULL) 

Units = UnitsNbme: 
else 

■■iUnit5 = 

if f Units.&e-rt^ngthO i= 0) { 

J- 'upm = MMF5et5iobIx( Units j; 

; jf Ouom) MMFAdd&bbC Units, 0,0,0,0-1,0); // add unit of measure first 
, JJuom = MMF&et&lobIx( Units ); 
y,d\se { 
, "uom = 0; 

5||itus = MMFAdd&iob( SbbName, uom, DimZSize, DimlSize, EiementSize, iype. Extra ): 

/^jtemp.Format("C%0 AddSlobEx finished successful iy for: 7oS\n" ^atus ^SbbName); 
/jl-ogErrorString(tcmp); 

refurn status; 



BQOL ceiobCtrt::&etFir5t6lDbO 

{ 

f^emoveNotify(51obPtr,6et5afeHwndO); 

SbbPtr = (t&bb *)((jnt)lpView + ipView->FirstSbb); 

// HG 980423 5etSiobName((L^CT5TR)&iobPtr->name); 

dctasize = 5bbPtr->datcsize; // H& 9804Z3 copied from SeteiobName 

m_&bbName = S!obPtr->name; // HS 980423 copied from SetSbbNlame 

SetModif iedFlagO; // cause properties to re-read 

if (SiobPtr->size) 

return true; 
return false; 

} 

BOOL CS[obCTrl::5etNext5bbO 

{ 

RemoveNotify(&bbPtr,&etSafeHwndO); 

&lobPtr = (tSbb *)(Cint)5iobPtr ^ eiobPTr->si2e); 

// HQ 980423 5etebbHame((LPCTSTR>SbbPtr->name); 



datosize = &lobPtr->datasize: // H& 9804Z3 copied from SctSlobName 
m^GbbName = eiobPtr->name; // H& 9804Z3 copied from SeteiobNlame 
.- SefModifiedFlagO; // cause properties to re-read 
' if (&lobPtr->5ize) ' ' '* ' 

return true;.." ; v- ". *' .*'.•>*-. - . ; 
Return false;-*-;* . "V* -** '* *• •"' • * *' ' " 

*} " '* * 

void C&lobCtrl::ErascO - ' ' - . * . • * * ; 

/"••.CSingleLacfeLoi^^ ' ' • * '* * ' ' ' ■ 

LockMeLockQ: 

RemoveNotify(SlobPtr,&etSafeHwndO); 
MMFEraseSlob( SlobPtr ); 
LockMe,Un!ockO: 

} i 

voipf CeiobCtrl::MMFErascO 

{ . . . 

;e^ingleLock LockMe(MMFLock); 

l|)ckMe.LockO; 
if (IpView) 

ii 

intsize; 
i^rintnmaps; 

RemoveNotify{&lobPtr,&etSafeHwndO); 
size " ipView->Si2£; 
nmaps = ipView->nNotif yMaps; 
memset( IpView, 0, size ); 
lpView->nNotifyMaps = nmaps; 

ipView->Ne>ct Avail = lpView->Rrsteiob = sizeof ( tControl ) + 32*si2eof C!ong)*nmaps; 
lpView->Size = size; 

}. 

UckMe.UnlockO; 

} 

long CeiobCtri::&etNotiTyList(iong index) 

{ 

BYTE'' temp; 
long* MapPtr; 

if OpView){ 

tf ((index < 0) 1 1 (index >= ipView->nNotif yMaps)) return 0; 
// TDDO: Add your property handler here 
if (eiobPtr && &bbPtr->ptrMap) { 

temp - (ByTE*)SbbPtr + eiobPtr->ptrMap; 

MapPtr ~ (bng*)temp index; 



return "MapPtr; 

} 

' •-. ^ ■ • ■ . . . ;. ■- .. . . . ^ • ' • ■ •• .• :. . . . 

. void CGlobCtri::SetNotifyUst(long index, long nNewValue) 
:^7iCTe^DP:/i^dYour^^ handier heter /. - *; / / ; '\ '\. 1. v ; - . ,.. 
SetModif iedFbgO'" • . * 

} ■: 

BOOL CSiobCtrl::AddNotify(t(51ob* eiobPtr,HWND my_hWnd) 
{ 

int index; 

odd my hWnd to notify list 
S(SiobPtr){ 

index = FindHandic(my_iiWno'); // iook .for a previous entry 
; if (index != -1) { ' // if we find one. dont add another! 
SetBitMap(eiobPtrJndex); //RK 042498 

return true; 

, :;; 7/ didnt find one so make one 

index = RndHand!e{0); // look for first 0 entry 

;1 if (index 1= -1) { // make sure there is one available 

lp\^ew->NotifyHandle[index] = my_hWnd; 
m^Notify = true; 

r 

CString Temp; 

Temp.Format("i ndex = %6 Power(index) = %d" J ndex, Power (index)); 
AfxMessageBox(Temp); 

5etBitMap(£lobPtr jndex); /J add ref to notify list 

return true; 

} 

} 

TnrowError(CTL_E_OUTOFMEMORy,"Out of memory in MMF. Con not register G\oh for notification, 
return false; 

} 

BOOL CSlobCtrii-.RemoveNotifyCteiob* SiobPtr, HWND my_hWnd) 

{ 

int index; 

7/ remove my hwnd from the notify list 
if(51obPtr){ 

m_Notify = false; // H& 9804Z3 clear notify flag in any case 

index = FindHandle(my_hWnd); // look for handle in list 



if (index == -1) 
return true; 



// not there! 

// dont need to remove anything 



lpVieW->NotifyHandle[index3 = -0; * // rcmtve entry from list , 
. ;■ .MMFCicarGbbBitsCindcx);. , '/ • - ^ . , * 

•-.V^f/GroW^r->nki^y ;*// penVove ^"effrom i^otffy map- 

return true: ' ^ \ ' 

} . _ 

return false; , ' . - - : ' 

BOOL C&lobCtr!::RemoveNotif yX(teiob* GPtr', HWND my^Wnd) ' * 
{ 

int index; 
long count; 

y/ remove my hwnd from the notify list 
ifieiobPtr){ 

;f index = FindHandic(m>L>Wnd); // look for handle in list 
^ if (index == -1) // not there! 

return true; // dont need to remove anything 

count = MMFClearelobBit(ePtr Jndex); 
i l if (count == 0){ 

lpView->NotifyHandie[index3 = 0; 

m_Notify = false; 

J} . 

, return true; 

t 

return false; 

} 

int C&lobCtrl::FmdHandle(HWND my_hWnd) 
{ 

int i; 

for (i=0;i<m_McxUnk£;iT-H) 

if (lpView->hiotifyHandieIi] == my_hWnd) return t; 

return -1; 

} 

long ceiobCtrt::&etNotifyHandle(short index) 
{ ^ 

// TODO: Add your property handler here 
if ((IpView) && (index < m^MoxLinks) && (index >= 0)) 
return (long)lpView->NatifyHandlerindex]; 

return -1; 

} 

void C&lobCtrl::SetNotrfyHandie(short index, iorg nNewValue) 



{ 

// TODO: Add your propert)' handier here 



SetModifiedFlagG); 

■ ior^*-PDwer(int. operand) . — ^- * " " 

int i; 

long-value; . *. - 

if (operand. ==0) { ■\, ' • ■ 

value = 1; - ' ■ 
} else { 

value = 1; 

for(i=l:i<=operand;i-H-) 
value *=2; 

h 

riturn value; 

. voj|c&iobCtrt::5endNotify(tSlob* SlobPtr, tContro!* IpView^hort IDProp^hort Prop Value) 
{ 

TODO: Add your dispatch handier code here 
iilt i,maplndex^itlndex; 
;int results; 
iWND mHwnd; 
f SiobMsg msg; 
idng* tempmsg; 
Jong SloblD; 
int count: 
long map: 

count - 0: 

// set up message to send for notify 

msg.PropID = IDProp; 

msg. Value = PropValue; 

tempmsg = (long*)&msg; 

SloblD = (long)SiobPtr - (long)ipView; 

mHwnd = GetSaf eHwndQ; 

if (m^AutoNotify) { 

if (&lobPtr && eiobPtr->ptrMap) { 

for (mapIndex=0;mapIndex<ipView->nNotifyMaps;mapIndex+-i-) { 

map - &etNotifyList(mapIndex); 
if (map i= 0) count++; 

for (bitlndex = 0:bitIndex<32;bitIndex-H-) { 
i = mapIndex^'SS+bitlndex; 

if ((map & (l«faitlnde>c)) && (mHwnd 1= ipView->NotifyHandle[i])) { 

results = ::PostMessage(ipView->NotifyHandle[Q^*5£R_VALUECHAN&ED .^tempmsg /Slob 
if (Iresuits) // if the handle is invalid then remove it from the list 



RemovcNotify(GlobPtrjpView->NotifyHandle[i]); 

} 

\ }■■■ ■ , - - - ... 

: - . ■ .if j[pount,= 0) SlobPtr->ptrMflp = .0: . - \ ; - ; . 

) 

void CGbbCtrl::pnF»^^^ '^:^ly•^^^\ J :'-;*v T//;v-..:.-> ; 

// TODO; Add your specialized code here and/or call the base class 

RemoveNotify(&lobPtr,&etSafeHwndO): 

CQleControi::OnFinaIfte!easeO; 

} 

long C&lobCtrl-OnValueChangcdCUINT !?aramJ-ON& rParam) 

/yllinpack IParom for PropID and Vaiue 
tpobMsa* msg: 

rr^ = (tSlobWtsg*)&lParam; 

RfeChan3e(mss->PrDpID,msg->Value,rParam); 
return 0: 

} 

shdrH C5bbCtrf::SetByteVaiueO 

// TODO; Add your property handler here 

// refurrs c byte (short was the only option in the wizard ;) 

if (SlobPtr) 

return SlobPtr->data.Byter03; 
return 0; 

} 

void C5iobCtrl::3ctByteVaiueCshorT nNiewVaiue) 

{■' - 

// TODO: Add your property handler here 
if {(GlobPtr) && i(lpView->ReadOniy)) { 

SlobPtr->data.Byte|0] = (ByTn)nNewValue; 

// notify controls on list of change 
//if (&bbPTr->notify !=0) 
5endK!otify(SlobPTr,lpVtewTDVALUE,0); 

} 

SetModifiedFlqgO; 

} 

short CSiobCtri::&etAbValue(lon5 index) 
{ 

// TODO: Add your property handier here 



if ((GlobPtr) c5t(5c (index < GlobPtr->datcsize)) 

return eiobPtr->data.Byte[index]; 
return 0; 

}.• ■ ' _ ' ' ' ' ' ' 

'* vdd ■ cetobCtr f:rSe:f AbValucOong i ridex;,' shor*t' n Wcw Vd ue") ' * • ' - ! • ;•. - • • 

V * . 

// TODO: Add your property handler here 
if (!(ipView->ReadOniy^) 
: :'.:if.^((lSiobPJ7rX^^ . 

'•'eiobf^trr>datQ3yte[ind^^ (ByTE)nNewVatue; , - "•' *f * " 

// notify controls on list of change 
//if (SiobPtr->notrfy !=0) 
SendNotify(&lobPtrJpViewJDVALUE,0): 

} 

//SetModif iedFlagO: -'^^ not needed for non persistent properties 
lon|k:&lobCtri::&etLValueO 

r ■ L=-' 

TODO: Add your property handler here 
ffi(eiobPtr) 

■ [ : return &iob?tr->datQ.Long[0]; 
return 0: 

} -'j 

voiiJCSiobCtrl-SetLVdiueClong nNewValue) 

TODO; Add your property handler here 
if ((SiobPtr) 6l& i(ipView->ReadOnty)) { 
if {5iobPTr->eitS!ze =- 4) 

SlobPtr->datc.Long[0] = nNewValue; 

// notify controls on list of change 
//if (&lobPtr->notify !=0) 
SendNctifyCSbbPtrjpViewJDVALUE^O); 

} 

//SetModif iedriagO; 

} 

long C&lobCtri*-:&etAlVatue(long index) 
{ 

// TODO: Add your property handler here 
if ((GiobPtr) ((index * sizeof (long)) < SiobPtr->datasize)) 

return &lobPtr->data.Long[index3; 
return 0; 

} 

void CSiobCtr!::SetA!Value(iong index, long nNewVaiue) 

{ 

// TODO: Add your property handier here 



if 0ClpView->RcndOnly)) 

if ((GlobPtr) &i ((index* sizeof (long)) < GlobPtr->datasize)) { 
(5lobPtr->datQ.Lon3[index] = nhiewVaiue; ' 

• , // nptify'coatrx)ls onJist of cha^ ^ ^ ^* 

• ■ 5endNotify(&lobPtrjpViewJDVALUE,0); 
}• 

//SetModifiedFlagO; . . . : ' . - 

'short CSlobCtrlr.SetlValucO ' ' 
{ 

// TODO: Add your property handler here 
if (eiobPtr) 

return SlobPtr->dGta.Short[0]; 
return 0; 

} 7! 

voi|;CSbbCtrl".SetIVali!e(short nNewVdue) 

TObO: Add your property handler here 
ifiCCeiobPtr) && !(lpView->ReadOnly)) { 
\\ if {eiobPtr->eltsize >= 2) 

eiobPtr->data.Short[03 = nMewValue; 

I- // notify controls on list of change 
''^ //if (eiobPtr->nbtify !=0) 
0 SendNotify(eiobPtr,lpView JDVALUEP); 

y 

:i^>SetModifiedFia30: 

} 

short C&lobCtri".6etAiValueClon3 index) 
{ 

// TODO: Add your property handler here 

if ((SiobPtr) &0C ((index * sizeof (short)) < SiobPtr->datasi2e)) 

return &lobPtr->dcta.5hort[index3; 
return 0; 

} 

void CSiobCtrl-.:SetAiValue(lons index, short nNewValue) 
{ 

// TODO: Add your property handler here 
if (!(lpView->ReadOn!y)) 

if ((&bbPtr) && ((index * sizeof (short)) < eiobPtr->datDsi2e)) { 
i5lobPtr->dota.Short[index3 = nMewValue; 

// notify controls on list of change 
//if {eiobPtr->notify !=0) 
SendNotify(51obPtr,lpVicwJDVALUE,0); 

} 



//SetModifiedFiagO; 

} 

long C&lobCtrl::6etValueSDCIong n) 

: • ;// TOtiD: *A3ci your property hmtiier- here ' "-*• ■ ■ • -/ 

ifCetbbPtr). ' • ■ ' • - 

{ - - 

if ((n * SlobPtr->eltsize ) < SiobPtr->datasi2e) 

case 4i -return SlobPtr->data.Long[n3; 

case 2: return &lobPtr->data.Short[n3; 

default: return eiobPtr->dcta.Byte[n]; 
} 

3 

return -1; 

} 

voi£CGlobCtri::5etVaiueSD(long n, long nNewValue) 

{ r:; 

//n'ObO: Add your property handler here 
if t!(lpView->ReGdOniy)) 

■Sif (SiobPtr) 

fi if ((n * ebbPtr->e!tsize ) < SbbPtr->datasi2e) 

Q { 

• switch (eiobPtr->eitsi2e) 
{ 

case 4: SlobPtr->data.Long[n] = nNewValue; 
break; 

cose 2: &lobPtr->data.Short[n]= (short)nNewVaiue; 
break; 

default: &bbPtr->datD.Byte[n] = (BYTE) nNewValue; 
break; 

} 

// notify controls on list of change 
//if (&bbPtr->notify !=0) 

5endNotify(eiobPtrJpViewTDVALUE,0); 

} 

} 

} 

//SetModifiedFbgO; 

} 

BSTTl C&bbCtrUi&etStrValueO 
{ 

CString strResult; 
if (SiobPtr) 



strResuh ' (ebbPtr->datc.Byte); 
y/ TOI>0: Add your property handler here 

return £trResult,AllocSys5tringO'* 

void CeiobCtrl::5etStrValue(LPCT51l^ IpszNewVclue) 

{ 

// TODO; Add ypur property handler here 
: ..V/CString;strR?4!u!tflpszMewV^^ ■ . ;.- ..; .' 

' irtti; ' : ' r.^ 

int stze; ' . ' 

if (!0pyicw->ReadOnly) && (GlDbPtr)){ 
size = strlenOpszNcwValue); 
f or(t=0;(i < size) && {i < (&lobPlT->datasize-l));i++) { 
51obPtr->datQ.BytcI0 = ipszNewVaiueliJ 

''jSbbPtr->dato.Byten3 = "XO"; 

J ■ 7/ .notify controis on list, of diange 
■ rt//if (SlbbPtr->notify !=0) 
2 ScndNotify{eiobPtr,lpView JDVALUEP); 

>l 

7/iSetModificdFiqgO; 

} n 



voti€&lobCtrl"Insert(iorg value, long Index) 

{ 

:// TObO: Add your dispatch handler code here 
LPSyTE source: 
LPBYTEdest; 
LONG size; 
lon^ dctacount; 

// EXft if index Is beyond range or &\ob isnt setup 
if (ISlobPtr) return; 

dctacount = &lobPtr->diml * SiobPtr->dim2 * SiobPtr->eitsize: 
if (C(index*eiobPtr->ettsi2e) >= datacount) ! 1 (index < 0)) 
return; 

if ((SlobPtr) && !(ipView->P^eadOniy)){ 
source = &bbPtr->data.Byte + index*'5lobPtr->eltsi2e; 
dest - source + &iobPtr->eltsi2e; 
size = datacount - (index+l)*£lobPtr->eltsi2e; 

//move date up (memmove handles overlapping memory regions) 
memmove(dest^ource^i2e); 



//insert new date element 



switch (aiobPtr->eltsi2e) 

{ 

case 4: ,&iobPtr->datalong[index] = value; 
- break;' 

• ...:cas^'2: eiDbPtr->data.SHqrt[index]= (sbort)value;.- 
"^r ' breaks' ' ' ,: 

default: &bbPtr->data.Byte[index3 = (ByiE) value; 
break; 

. ■> ■ • • .:. •: .- •• .• . . . •■■ 

< •/:/ r\6fifyconirdSpjii list- hf- chaise .• . .' /-...v ; ; . .;. 
■ V/if(SlobPtr->hotify-!-6^" 

SCTidNotify(eiofaPtrjpView;iDVALUE,0);" 

} 

} 

BSTR CGlobCtrl::eetFullPathO 
^Btring strRcsuit; 

/ijObO^ Add your property handler here 

sil'Result - m_FullPath; 

return strftesuh-.AliocSysSTringO; 

} ij; ■ 

void k:SlobCtrl::SetFullPath(LPCTSTR IpszNewValue) 

{ 

M TODO: Add your property handler here 
SfetModifiedPlagO; 

joriFC&lobCtrl::ResizeMMF(long NewSize) 
{ " 

// TODO: Add your dispatch handier code here 
return MMFf^emapView{NcwSlze); 

3 

long CSbfaCtrh'.SyncFileSizeO 
{ 

rf (m^FileSize 1= lpView->Si2e) { 

// mapviews are not syncronized so remap 
MMFRemapView{lpView->5i2e); 

} 

return 0; 

} 

void Logtrror5tring(C5tring errsfr) 

{ 

if C!L06_ERRORS) return; 
FILE *f ; 



f = fopenC"C:\\5'iobErrJ.og","c"); 



fwritc(crrstrArerrstr,&etLengthO,f); 
fclose(f); 

} 

voldCGlobCtrl-SendNotifyX^^ * ' ' ; . •* 

// TODO: Add your dispatch handler code here 

; int.j,maplridi^,bitlhd^^ V. '-.v. .-V v ' V**- '** 

in'f.restiTts;/ " - . • - * *. / * 

HWNDmHwnd: ' • 
t&lobMsg msg; 
long* tempmsg; 
long SlobrD; 

// set up message to send for notify 

nfegPropID = Notif yID; 

r^g,Value= Value; 

tjimpmsg = (long*)&msg: 

JJobID = (long)&lobPtr - (long)ipView; 

rftHwnd = SetSaf eHwndQ; 
if(&bbPtr){ 

l! for {mapIndex=0;mapIndex<ipView->nNotifyMap£;mapIndex++) { 
■p for (bitlndex = 0;bitlndex<32;bitlndex++) { 
i = maplnde>c*32+bitlndex; 

if(C&etNotifyUst(mapInde>c) & Cl«bitlndex)) && (mHwnd != lpView->NiotifyHandle[t3)) { 
results = ::PostMessageOpVlcw->NotifyHandie[i3,U5ER_VALUECHANGED*tem 
if (Iresults) // if the handle is invalid then remove it from the list 
;^emoveNotify(&bbPtrjpView->NiotEfyHandle[i]); 

} 

} 

} 

} 

} 

BOOL C5iobCTrl::eetAutoSendNotifyO 
{ 

// TODO: Add your property handler here 
return m_Aui-oNctify; 

} 

void CeiobCtri::5etAutoSendNotify(BOOL bNewValue) 

{ 

// \ ODO; Add your property handler here 
m__AutoNotify = bNewValue; 

SetModrfiedrlagO; 

} 



BOOL CGlobCtrl::On5etExtent(L?SIZEL IpSizeL) 
{ 

- // TODO: Add your specialized code here and/or call the base class 
\/ return false:7/COjeCohtroj::OhSEi-E>d'enfClp^^^ - - • / 



Jong pStobCtrl::^ etNKandles^^^ „*:,...-* - :V ' - v.:.'.. -* ' S.z' > .A": 
//.TODO: Add your property handler here* 
return m_MaxLinks; 

} 

void CSlobCtri::SetNHandles(long nNewVaiue) 

{ J 

/J.fTOt>0: Add your property handler here 

SfctModifiedFlagO' 

)" ' ' ' ' ' 

long'CSlobCtrl-.GetNNotifyMapsO 

//- (TObO: Add your property handler here 
if^flpView) 
^return lpView->nNotifyMaps: 

r%furn 0; 

J 

void Ci5!obCtrl::SetNlNJotifyMaps(lon5 nNew Value) 

{ 

// TODO: Add your property handler here 
SetModifiedFiaoO; 

} 

BOOL CSiobCtrl::FormatMMF(long NiotifyLimit) 
{ 

// TODO: Add your dispatch handier code here 
int x; 

if (IpView) { 

if (lpView->Rcf Count > 1) { 
ThrowError(CTL_E„P5WAISSIONDENlED/'Sharing violation. Can not reformat MMF."); 
return false; 

} 



if (NotifyUmtt < 32) Notif yUmit = 3Z; 
X = (Notif yUmit-iySZ ^ 1; 
ipView->nNotif yWiaps - x; 
m„MaxLinks = x*32: 

: nji^RleSize (ra:iWwx<Links*si2^pf{lor^>+ 4095):" //cole hew- size of f iie . 
mJ=\\eS\ze &= --4095; Umake size o multiple of 4096 

MMFEraseO; , . 

• Jf CMMFGretrteQ . V- / ' 

return FALSE; 

} 

long CSbbCtrl::eet&lobSi2eO 
{ 

// TODO: Add your property handler here 
i|fSlobPtr) return elobPtr->si2e; 
r£tum sizeof (tSbb); 

void CGbbCtrl-.tSetSlobSizeClong nNewVaiue) 
/|i TODO: Add your property handler here 
SitModifiedFiagO; 

> il 

ion3'-"C&lobCtri::&etRefCountO 

// TODO: Add your property handler here 
if (ipView) return lpView->Ref Count; 

return 0; 

} 

void CSlobCtri::5etRefCount{bng nNewValue) 

{ 

// TODO: Add your property handier here 
SetModif iedFlagO'" 

} 

B5TR C5iobCtri::&etVersionO 

{ 

CString strResult; 

// TODO: Add your property handier here 

strftesuit - VEkSlOH: 

return strResult.AlbcSysStringO; 

} 



void CSlobCtrl::5etVersion(LPCTSTR IpszNewValue) 

■{ 

// TODO: Add your property handler here 
SetModrfiedFiagO' ' * ** ' 

BSTR CelobCtrl::6etUOM0 

CStrfns strfeesult; ' ' . 

J I TODO: Add your property handier here 
tSlob* temp; 

if ((SlobPtr) && (&lobPtr->UOM) && IpViewX 
temp = .(tebb*)({int)lpView + eiobPtr->UOM); 
strResuit = tcmp->name; 

}.llse { 
r:jstrResult = ""j 

}| 

rifturn strResult.AllocSysStringO; 

} % 

void1:SlobCtrl::SetUO/A(LPCTSTRlpszNewValue) 

i \ 

/fyObO\ Add your property handler here 
int uon:\; 

MMF&etSlobIx(lps2NewValue); 
if <ebbPtr3 &lobPtr->UOM = uom; 
SetModrfiedFiagO; 

} 

BS're C&iobCTrl::&etLinkO 

■{ 

CStrino strResulr; 

.// TODO: Add your property handler here 
tfilob* temp; 

if ((SbbPtr) (5iobPtr->iink) IpViewX 
temp = (t&lob*)((int)lpView + 5iobPTr->l!nk); 
strResutt = temp->name; 

}else{ 

StrResuit = *"^; 

} 

return strResult,Alloc5ys5tringO; 

} 

void CSlobCtrl::SetUnk(LPCT5TR ipszNewValue) 



{ 

// TODO: Add your property handier here 
int link; 

CString newval; 

: if OpszN'ewValue !=-NULL) * ; ' • \ 
newval = ipszNewVaiue; 
else 
newva! = 

*' 'iinkr MMFSetSioblj^Cneviwal); - ' ' * V 

if (SlobPtr) eiobPtr->iink = link; 
SetModificdBaQO; 

} 

long C&lobCtrl::IndexOf (LPCT5TR, SlobName) 
{ 

// TODO: Add your dispatch handier code here 
ipsng index; 

= MMF&et5iobIx(5iobNamej: 
(iindex) index = -1: 
irreturn index ; 

} m 

BOOL CeiobCtrl::£etNotif yOnChangeCLPCTSTR SlobName) 
{ 

I? TODO: Add your property handier here 

t^bb* SPtr; 

iwNDhWind; 

Kng index: 

long maplndex; 

long faitlndex; 

BOOL ret; 

BYTE'' temp; 

long* MapPrr; 

hWind= &et5afeHwndO; 
ret - f aise; 

if (lipView) return false; 

if (SlobNamefO] == '\0'){ 

SPtr = eiobPtr; 
} else { 

&?tr = (t&iob*)MMr&eteiobPTr(&lobName); 

} 

if (GPtr 6L6i SPtr->ptrMap) { 
index = RndHandle(hWind); 
if (index i= 

maplndex ~ index/32; 
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bitlndcx index - maplndcx*32; 
temp ' CByTE*)SPtr + ePtr->ptrMap; 
MapPtr = C!ong*)tcmp + maplndex; 
if (* MapPtr & (l«bitlndex)) ret = true; 

- } 

3 - ■ - 
return ret; 

} 

void C(5lobCtrl::5etNotifyOnChange(LP.CTSTR Slobl^ame, BOOL-bNewValuc) -• ' 
{ 

7/ TODO: Add your property handler here 

BOOL retJ 
HWND hWind; 
teiob* SPtr; 

ifl(SiobNbmcIO]= '\0'){ 
. fiSse. { 

ePtr = (t5bb*)MMF&eteiobPtr{SbbNQme); 

% 

if (SPtr) { 

i -, CSin^leLock LockMe(SiobLock); 

- : ; if 0 AmbientUserModeQ) { 

llirowError(CU_E„PBRMISSIONDENIED;'This property can only be set at runtime.",0); 

"J 

LockMe.LockO; // warts inf initeiy for resource to be available. 

// can use a timeout value as a parameter (ms) if desired. 

hWind = SetSof eHwndO; 

if CbNeivVaiue) { 

ret = AddNotify[^r,hWind); 
}else{ 

ret = RemoveNotifyX(&Ptr>iWind); 

3 

LockMe.UnlockO: 

3 

SetModifiedriagO' 



long CebfaCtrt::SetVisibleO 
{ 



HRES'JLT hresult; 

IDispatch FAR* pdisp = (IDispatch FAR*)NULL; 
DISPID dispid; 

OLECHAR FAR* szVisiblc = U'Visibte"; 
OLECHAR FAR* szTobStop = L"TabStop''; 
DISPP ARAMS disparams; 
DISPID MyDispid = DI5PID_PR0PERTYPUT; . 
VARIANTARS myarg[l]; 

dtsparams.rgvarg = myarg; 
disparams.rgvarg[03.vt = VT_BOOU 

disparams.rgvarg[03.boolVal = FALSE; //MFC help soys this fieldname is octuaiy "boo!"... yea right! 
disparams.rgdispidNamedArgs = AMyDispid; 
disparoms.cArgs = 1; 
disparams.cNamedArgs = 1: 

p^isp = fietExtendedControlQ; 

jiesult = DISP_E_UNICNOWNINTCRFACE; 

i| (pdisp) { 

I'., //set visible to false 

Z hresult = pdisp->SetIDsOfNames(nD_NULL,&szVjsible^^OCALE_USER_DEFAULT,&dispid); 
if (hresult = S_O{0 { 

^ hresult = pdisp->Invoke(dispid JID_NULL4.0CALE_USER_DEFAULT,DISPATCH_PR0PERT/PUT, 
Adisparams,NULL;vJULL,NULL); 

1= //set TabStop to false 

i y hresult = pdtsp->&etIDsOf Names(IID_NUa,dS2Tab5topAi.OCALE_USER_DEFAULT,&dispid); 

± if (hresult = S_OK) { 

hresult = pdisp->Invoke(dispidJID_NULLX.OCALE_USER_DEFAULT;5lSPATCH_PROPERTyPUT, 

• &dispararr^>3ULL>lULL>JULL); - 

} 

pdisp->RciecseO; 

} 

return (long)hresu!t; 



// Copyright 1996, 1999 SPX Corporation 

#if !defined(AFX_SLOE_H_5F20D2DC_7BBC_llDI_9A9B_020701045A6B_INCLUD5Dj 
#define AFX_GLOB_H_5F20DZDC_788C_11DI_9A9B_02070104dA6E_INCLUDED_ 

#if _MSC_.VER>=-1000 

^pragmo oride •■ • .• - . ' . . ". .• -• •' r' ■ ■■ ' ■ -• ;." .;. ■ 

#endif >/ _M5C_VER >= 1000 

// eiob.h : main header file for GLOB.DLL 

#error include" afxctl.h' before including this file . 
#endif 



#includc "resource.h." // main symbols 

///////////////////////////////////////////////////////////////////////////// 
I J 4SlobApp : See Slob.cpp for implementation. 



#dpine Glob_NAME_LENSTH 16 

#djine DEF.NOTEpyMAPS S 

#dfeFine- NOTIFYMASK - -1 

#d^ine OK 0 

#d^ine ERR_CANT_CREATE_FILE_MAPPINS -2 

#define ERR_CANT_MAP_VIEW_Or_FILE -1 

#dp|inc ERRJNVALIDjSlobJ^EFERENCE -3 

#d&|ine ERR.HsJVALIDFILENAME 999 

#d|fine .MEM_ALLOC ,. 4096 

#difine iMAX_STRINe 256 

#difine MMF_TMTERC0M_MMF _TEXT("MMF_INTERC0M'') 



// FLA5 VALUES TO USE IN MMFSETSlobPARAM AND MMFSET&iobPARAM 
// USE ACTUAL BYTE OFFSETS FOR FASTER ACCESS 

#define eiob_DIM2 4 

#dEfine Slob_DIMl 6 

#define Siob_ELTSIZE B 

#define " eiob.TYPE 10 

#define Slob_PARAM 12 // add! data 

#define (51ob_DATASIZE 14 // oddl 

typedef struct 

f 

long Size; 
int FirstSiob; 
int NextAvail; 

int ReadOniy; // is MMF Recdoniy riohl- now? 

int RefCount; 

int nNotifyMaps; 

int Data[ 10 j; // spare 

HWND NotifyHandlefO]; // hwnd for windows to notify of cnoxxQ^ 
} tControl; 



typedef struct 

{ 

int size: 

BYTE name[ Slob^NAME^LENSTH ]; 

short dim2; // 2nd dimension 

short diml; // 1st dimension 

short cltsize: // byte size of each array element 

short type; // type of array element 

short e>ctra; // addl data. Waveforms use for Actual Length, etc. 

short command; // command to the device 

short status; // status from the device 

short datasize; // add! 

long VOhtc // unit of measure link, if any 

long link; // offset of parameter Slob, if any 

//long notifymap[DEF_NOTIFyMAPS]; // bitmap used to indicate who to notify if changed 

long ptrMap: 

union 

:[i long Long[0]; 

short Short[0]; 
„p.ByTE ByteTO]; 
>data; 
Jtiiob; 

typ^^def struct 

short PropID; 
sliort Value; 
}tiobMsg; 

class C&lobApp : public COleControlModule 

{ ' 

public: 

BOOL InitlnstanceQ; 
int cxitlrstanceQ; 

}: 

extern const 5UID CbzCl _t(id; 
extern const WORD _wVer Major; 
extern const WORD _wVcrMinor; 

//{{AFX_^INSERT.LOCATxON}} 

// Microsoft Developer Studio will insert additional declarations immediately before the previous line. 
#cndif // !defined(AFX.SLOB_H_5F20D2DC_788C„llDl„9A9B_020701045A6B_INaUDED) 



// Copyright 199B, 1999 SPX Corporation 

// GlobPpg.cpp : Implementation of the CgiobPropPage property page class. 

#inciude,"stdafx.h" •. ' 

#includc "&lob.h" . . • _ • . . . . 

■#indude"erQbPpg>i"-- . ■ - • ■ ' • ' ' ' 

#ifdef .DEBUS 

#def ine new Dc&Ue_NJEW 

#undei-THIS^FIL:E--.-. -• - -• -~ v--- ■.- '■ 

''■^ai-i^' 'char tHisj=IL-ED - _FILElj". ' ' ' v' ' ' " ' ''' ' '■. ' 
#endif • •• / • 



IMPLEMENT_DyNCREATE{C&lobPr6pPage,COlcPropertyPagc) 

jiftpiijiNiiNNintiiiuiHiiiiiuniniiii/iiiiiiiiiiiiiiiniuinii/iiii 

// ikessoqe. map 

BElrN_MESSA&E_MAP(CGiobPropPage, COlePropertyPage) 
'/tC{AFX_MSS_MAP[CeiobPropPage) 

fi^ NOTE - ClassWizard will add and remove mzssaqe. map entries 
l)\ DO .NOT EDIT what you see in these blocks of generated code 1 
/7}}AFX_MS£_MAP 
EN||_WvES5AeE_MAP0 

// Initialize class factory and guid 

IMPLEMENT_OLECREATt_EX(CeiobPropPage."eLOB.&lobPropPage.l", 

Oxof 20d2d7, Ox788c, Oxlldl, Ox9a, Ox9b, 0x2, 0x7, 0x1, 0x4, 0x5a, Ox6b) 

/////////////////////////y//////////////////y//////////////////////////////// 

// ceiobPropPage".Ci51obPropPageFactory::UpdGteRcgistry - 
// Adds or removes system registry entries for C&lobPropPage 

BOOL CSlobPropPage::C<51obProp?aaeFactory::UpdateRegistry(BOOL bRegister) 

{ " ' 

if (bRegister) 

return AfxOleRegtsterPropertyPageClass(Afx&etInstanceHandieO, 
m_clsid, IDS_SLOB_PPS); 

else 

return AfxOleUnreg!SterClass(m_c!sid, NULL); 



///////////////////////////////////////////////////////////////////////////// 

// C&bbPropPaae-CSiobPropPage - Constructor 



CSlobPropPoge-CeiobPropPageO : 

COlePropertyPageCIDD. IDS_SLOB_PP&_CAPTION) 

{ 

//{{AFX_DATA_INIT(CSIobProppQ9e) 

// NOT^; ClassWizard will add memba' Initialization here 

// DO MOT EDIT what you see in these blocks of generated code 1 

//}}AFX_DATA_rNIT 

} 



////y//////////////////////////////////////////////////////////////////////// 

// C&IobPropPage::DoDataExchangc - Moves data between page and properties 

void CSlobPropPage::DoDataExchar^e(CDataExdiar^e* pDX) 
{ 

//{{AFX_DATA_MAP(ceiobPropPage) 

// NOTE: CiossWizard will add DDP. DDX. and DDV calls here 

// DO NOT EDIT what you see in these blocks of generated code ! 

/f}}AFX_DATA_MAP 

6bP_PostProcessin3(pDX); 

^ IS 



//m///y/////////////////////////////////////////y//////////////////////yy/// 

IJ {jSiobPropPage mRSSOQZ. handlers 



// Copyrigh-t 1998, 1999 SPX Corporation 

#if !defineci(AFX_GLOBCU_H_5F20D2E4_7B8C_llDl_9A9B_020701045A6B_INCLUDEDj 
#dcfine AFX_GLOBCU_H_5F20D2E4_78BC_11D1_9A9B_020701045A6B_INCLUDED_ 

#if_MSC_VER>=lpOO ■ • .. ■ ,-. 

*:#prqgma once" ' v. ■ ■; •• ' •"' "'' 

#cndif // _M5C_VER >= 1000 ' - ' 



// eiobCtLh : Declaration of the CSlobCtrl ActiveX Control class. 




//."CelobCtrl : See SlobCtl.cpp for implementation. 



#include <af xmt.h> 
#include <memory.h> 
#include <string.h> 

#defineIDVALUEl 
#def ine IDSTATUS 2 
#difine IDCOMMAND 3 
#d4%ne VERSION "1.2i" 

class ciSiobCtrl ■: public COleControi 

{ SI 

DfCLARE^DYNCREATECCSiobCtrO 

/y Qnsfrucfor 
public: . 

• #lobCtrlO; ■ 
// Overrides 

/7 CxassWizard Generated virtual function overrides 

//C{AFX_VIRTjAL(CSbbCtrl) 

public: 

virtual void OnbrawiCbC*" pdc, const CRect& rcBounds, const Cftect& rclnvalid): 

virtual void DoPropExchanoeCCPropExchange* pPX); 

virtual void OnftesetStcteQ; 

virtual void OnFir^lReieoseQ; 

virtual BOOL On5etExtent(LP5IZEL IpSizeL); 

//}}AFX_VIRTUAL 

// Impiementction 
protected; 
-C&lobCtriO; 

BEeiNLOLEFACTORyCCSiobCtrl) 

virtual BOOL VerifyUserUcenseQ; 

virtual BOOL &etLicenseK:ey(DWORD,BSTR FAR*); 
END_OLEFACTORy(CSiobCtri) 

DECLARE_OLETyp£lJB(C91obCtrI) // ^^etTypelnf o 
DECLARE„PROPPA^D5{C&lobCtrI) // Property page IDs 
DECLARE_OLECTLTyPE(Ci^lobCtrl) // Type name and misc status 



// Message maps 
. //{{AFX„M5&(CeiDbCtrl) 

■ ■y/}}AF>eA/i55- . 

. DECLARE_ME55A&E_.MAPQ . ; 

// Dispatch maps 

//{{AFX„bI5PATCH(ceiobCtr!) 
af x_msg long SetSlpblndexC): 
: af x^msg void ;5et&bblndp^(^^ ^- 
afRjjfiisghj^'-G^^^ "* * ; ' 

af x_msg void SctbimlSi2e(long nNewVaiue); 
af x_msg long SctDimZSizeQ; 
afx_msg void 5etDim2Sizc(iong nNewValue); 
af x_msg long 5etE!ement5izeO; 
af x_msg void SctElementSizc(ldng nNewValue); 
af x_msg long SetTypeQ; 
dfkjmsQ void SetType(!ong nNewVaiue); 
afk_msg long SetExtraQ: 
afk_msg void 5etExtra(bng nNewVaiue); 
ofx^msg iong SetDctaSizeQ; 
cfk^msg Void SetDdtcSizeClong ritNewValue); 
c&c„msg B5TR eetSlobNameQ; 
atk^msg void 5et&lobName(LPCT5TR ipszNewVaiue); 
afx_msg iong SetPileSizeO; 
a#c_mss void 5etFile5izc(iong nNewVaiue); 
q#x_msg BSTR &etFileNameO; 
C^^^msg void 5etFiieName(LPCTSTR IpszNewVaiue); 
aflx_msg long SetStotusQ; 
cfSx_msg void 5etStctus(long nNewVaiue); 
|i#x_msg lor^ SetCommandQ; 
cf x_msg void 5etCommand(long nNewVaiue); 
af x_msg iong GetSlobPtrQ; 
cf x_msg void SetSiobPtrClong nNewVaiue); 
'cfx^msg iong SetDotaPtrO; 
cf x_msg void 5etDataPtr(iong nNewVaiue); 
afx_msg long SctAvailSizeO.' 
afx_msg void SeiAvaiiSizeCiong nNewVaiue); 
af x_msg BOOL SetReadOniyMMFQ; 
af x_msg void 5etRead0n!yMMF(B00L bNewValue); 
af x_msg BOOL SetNotifyQ; 
af x_msg void SetNorif y(BOOL bNewValue); 
cf x_msg short ^etByreVaiueQ; 
cfx_msg void SetByteValue(short nNewVaiue); 
cf x_msg long ^etLValueQ; 
afx„msg void 5etLValue(long nNewVaiue); 

x„msg short SetlValueO^ 
cf x_msg void 5etIValue(short nNewVaiue); 
cf x_msg B5T?< SetStrValueQ; 
cf x_msg void Set5trVa!ue(LPCTST& IpszNewVaiue); 
cfx_msg BSTR GetrullPcthO: 
cf x_msg void SetFullPath(LPCTSTR IpszNewVaiue); 



afx_msg BOOL GctAutoScndNotifyQ; 

af x_msg void SetAutDSendNJotify(BOOL bNcw Value): 

af x_msg long SetMHandlesQ; 

afkjmsg void SetNHandles'Oong nNe\vVaiue); 

afx_msg long fictNNotifyMapsO; . . . - 

: :ciT>L,n^sg vo]d;'5ctN[>lo;t^ : ' • ' v /• > - * . * • • . /- .,..■*-,■"'-" 

of x_msg long SetSlob'SizeQ; . ^ ' 

afx_msg void Set&lobSi2e(long nNewValue); 

cif ^^-.n^sg long SetRef CountQ^ 
. . afxi^msg-vpid SetRefCquntCldng nNewVdue); ^ /\ . . . • 

' :af x^ih^sg ^siS'&eWer^^ • ; •* -." • - • ' - 

afx_msg void SctVcrsionCLPCTSTR ipszNewVaiue); 

af x_ms3 BSTR GetUbMO; 

afx_msg void SetUOM(LPCTSTR IpszNcwValue); 

afx_nnsg B5"m SetUnkO; 

af x_msg void SetLink(LPCTSTR IpszNcwValue); 

af x_msg long MMFCioseQ; 

dfx_msp long MMFAdd&lob(LPCTSTR SiobName, long Unitslndex, long DimZSize, long DimlSize, long ElcmentStze, long 
Ty^j&, long Extra); 

:Qfx_nisg long MMFAdd&lobEx(LPCT5TR SlobName, LPCTSTR UnitsName, long Dim2Size, long DimlSize, long EicmentSize, 1 
on^^Type, iorg Extra); 
' " ;#>^-msg 'BOOL fietFirst'eiobO; ' 

'^1 x_n\sg BOOL GetNext&lobQ; 

,&f x__msg void EroseQ; 

atx^msg void MMFErcseQ; 

sfx_msg void Insert(iong value, long Index); 

||^x_msg long RcsizeWvMFClong NewSize); 

:fifx_msg void 5endNotifyX{short NotifylD, short Value); 
x„msg BOOL FormatMMF(long NotifyLimit); 

&f x_msg long IndcxOf {LPCTSTR SbbName); 

;sfx_msg long SetVaiueClong Dim2, long Diml); 

afx^n^g void 5etVaiue(long Dim2, long Diml, iong nNewValue); 

cfx_msg long &etNotifyHandie(short index); 

afx_msg void 5etNotifyHandle(short index, long nNewValue): 

afx_msg short &etAbVaiue(long index); 

afx^msg void 5etAbValue(iong index, short nNewValue); 

cfx_msg long &etAiValue(long index); 

afx^nisg void SetAlValueCbng index, iong nNewValue); 

af x_msg short &etAi Vaiueflong index); 

cifx_msg void 5etArValue(iong index, short nNewValue); 

Gfx„msg long &etValue5D(long n); 

cfx_msg void SetVa!ueSt>(iong n, iong nNewValue); 

af x_msg long 5etNotifyList(long index); 

afx_msg void 5etNotifyList(long index, long nNewValue); 

cfx^msg BOOL &etNotifyOnChange(LPCTSTR SlobName); 

cfx^msg void SetNotifyOnChanQe(LPCTSTR SbbName, BOOL bNewValue); 

/.0}AFX_DI5PATCH 

DECLARE.DISPATCH.MAPO 

cfx_n:sg void About BoxQ; 

af x_msg iong OnVaiueChanaed(UINTj,ON£); 



/ / Event maps 

//{{AFX„EVENT(CSiobCtrl) 
. void FireChangeCshort PropID, short Value, long SendID) 

• ■ {FireEvent(eventidChangc,EVENT.PARAM{VTS_I2' VTSJLZ VT5_I4), PropID. Value, SendID);} 
- //})AFX„EVENT /- . . * / - - . . . ' 

// Dispatch and event IDs 

public: \ . , \ 

: enum'( . ; - * J- ; \ ^- „ : : ^ • . - .- v - 

** T^K'^^bi^^ 

dispid£bblndex'= IL, 
dispidDimlSize 2L, 
dispidDim2Si2e = 3L, 
dispidElementSize = 4L, 
dispidType = 5L, 
dispidtxtra = 6L, 
dispidDatcSize * 7L, 
ilpidGlobName = 8U 
dispidFiieSize = 9U 
fepidFllcName = lOL, 
dtspidStatus = IIL, 
KispidCommand = 12L, 
c^ispidGlobPtr = 13L, 
l^fpidDataPtr = 14L, 
dispidAvailSize - i5L, 
fif pidf^eadOniyMMF " 16L 
cfibpidNotify = 17L, 

ippidValueSrlSU 
i&pidValue32 r i9L, 
SfepidValuel6 = 20U 
fepidStrValue = 21L, 
dispidFuilPath = 22L, 
dispidAutoSendNotify = 23U 
dispidNHandies = 24L, 
dispidNNoTifyMaps ' 25L, 
dispidSlobSize = 26L, 
dispid?<ef Count = Z7L, 
dispidVersion = 28L, 
dispidUOM = Z9U 
dispidUnk = 30L, 
dispidVciue= 43L, 
dispidCicseMvMr = 31L, 
dispidAddNewr 32L, 
dispidAddNewEx = 33L, 
dispid&etFirst&lob = 34L, 
dispid&etMextSiob ' 35L, 
disptdErase - 36L, 
QispldErcsef^Af^iF ~ 57L, 
dispidNotifyriandie = 44L, 
dlspidAVaiueS = 45L, 
d:spidAValue32 = 46L, 
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dispidAValuel6 = 

dispidValueSD 48L 

dispidlnsert ' 3BL, 

d!spidResi2eMMF = 39L, 

dispiffSendNotif y = 40U 
.:-dis^jdNotffyMap'= 49L'" /- . . " ' " •> • ■ .\: 

dispidFormatMMF = 41U 

dispidlndexOf = 42L, 

d ispi dNotif y OnChange = SOL, 
J cventidChaPige =-lL, . ^. ■ ' • " / v - 

^'//3}AF>U^Si^ -V 

privcte: 

tSlob * SlobPtrj 
long datcsize; 
CStri ng m_GlobName; 
BOOL nuNotify; 
CMutex*SbbLock: 
?Mutex*MMFUck; 
SString m_FuIIPa1ii; 
^String m_FllcNafrie; 
iivt m„Fiie5i2e; 
HANDLE f; 
PANDLE hFiieMapT; 
HANDLE s.hFiieMap; 
=tControt *lpView; 
fchyTE ipLcst 
:;|pOL nuAutoNotify: 
;3fing rtL-WiaxLinks; 

^C^tring SPXJslOTIFyjAUTEX; 
'cstring SP>LMMF_MI;TEX; 

//private member functions 
long ■MMFCreate(void); 

long MMFOpenCLPCTSTR, long, LPCT5TR, long); 

long MMFfeemapView( long ); 

long MMF&etSbbPtr(LPCT5TR); 

t^iob *MMFNextAvail^iob( long ); 

t&iob *MMFFirst5iobO; 

void MMFErcseSlob( tSbb *); 

long MMF&eteioblxCLPCTSTR); 

void MMF>^eseT&lobs(void); 

BOOL AddNlotify(tSlob*,HWNI>); 

BOOL RemoveNotify(tSlob*,HWND); 

int FindHandie{HWND); 

void 5endNDtify(t{5iob*, tContro!*, short, short): 

void MMFCieart5iobBits{iong BitMap); 

long SyncrileSizeO: 

void 5etBfTWiap(tSiob* jong index); 

BOOL RemoveNotifyX(t9lob* SiobPtr, HWND my_hWnd); 
long MMFCIear-SlobBit(t91ob* G?tr,\ons index); 
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BOOL NotifyUstIsEmpty(teiob *lp&bb); 
long SetVisibleQ; 

}: 

//{{AFX_Ihi5ERT_LOCA-nON}} 

// Microsoft Developer Studio will insert additional declarations immediately before the previous line. 
#endify/!defined(AFX_GLOBCU_H_5F20!>2E4_78BC_llDl_9A9B_020701045A6B_rNaUDED) 
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// Copyright 1998. 1999 SPX Corporation 

// £tdafx,qjp source f lie that includes just the standard includes 

U stdaf x.pch will be the pre-compiied header 

// stdafx.o'Dj will contain the pre-compiled type information 

>include;"sitia|=x.h" .■• ■- ' . ' .'. .i 
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// Copyright 199B, 1999 5PX Corporation 

#if ldefined(AF>e5TC>AfX.H_5F20b2DAJ?^8BCJllD1.9A9B_020701045A6B_lNCL^ 
#dcfinc A.FX_STDAFX_H_5F20D2DAJ7BBC_11D1„9A9BJ)20701045A6B_INCLUDED„ 

#if _MSC^VER >= 1000 
.^prcgmd once " - 
#cndif // ^kSCJJEk >= 1000 

// stdafx.h : include file for standard system include f iles^ 

// -or project specific include files that are .; , y-- . . ^. . . • r - 

7/ . but are changed infreguentiy "7 * • ' ^ ■ '* ' *" *. • - v 

#def ine VC„EXTRALEAN Exclude rarely-used stuff from Windows headers 

#include <afxctl.h> // MFC support for ActiveX Controls 

// Delete -Hie two includes below 3f you do not wish to use the MFC 
//^database classes 

#^ipude-<afxdb.h> JJ 3A?C datdxise classes 
#iiidude <afxdao.h> 77 MFC 1>A0 datcicse doBses 

" //iAf^»INlSERTJLOCAlTON}} ' ' \ 
//Microsoft Developer Studio .will insert additional declarations immediately before the previous line, 

#ehdif // !defined(AFX_5TDAFX_H_5F20D2DA_7B8C_llDl_9A9B_020701045A6B_rNCLUDED J 
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// Copyright 1998, 1999 SPX Corporation 
//{{N0_DEPENDENCIES}} 

// Microsoft Developer Studio generated include file. 
// Used by Globrc 
•// - .■ . 

.#defin?lbs^SLbB; . -.. . l^- ".. ■ ' ■ :-■ ■ 
' ^defme. IDDIaBOUTSOX.&LOB ' 1 ' 

#def inc IDB_GLOB 1 

#def ine IDI.ABOUTDLL 1 

#dcfineIbS_SLOB_PPe' . 2 - .. 
.:-#def inc IDSieL0B^PP6_CAPT10l^ ■ ' '* ECiD'. - '." ' 

#defme IDD_PROPPASE_GLOB 200 

// Next default values for new objects 
// 

#if def APSTUDIO_INVOKED . 
#if ndef APSTUDIO_READONLy_SyMBOLS 
#dsfine_APS_NEXT_RESOURi^_VALUE 203 
#d-^f ine _APS_NEXT_COMMAND_VALUE 32768 
#4'fine_APS_NEXT_CON"mOL_VALUE 201 
#cifine_APS_NEXT_syMED_VALUE 101 
■ #e{dif ' ■■ ■' ' ■ 

#eridif 



// Copyright 1998, 1999 SPX Corporation 

#if !def ined( AFX_SLOBPPe_H_5F20D2E6_788C_llDl_9 A9B_02070104 5 A6 B_INCLUDED J 
#def ine AFX_eLOBPP5_H ^5F20D2E6_7BBC_11D1_9A9B_020701045A6B_INCLUDED_ 

#if _MSC_VER >= 1000 
.#pragmconcc. ■ • 

#endif //_M5C_VER >= 1000 

J I SlobPp3.h : beclaration of the C&lobPropPage property pope class. 

/////////////////////////////y////////////////////////////////////////////// 

// CSiobPropPage : See SbbPpg.cpp.cpp for implementation. 

class CSlobPropPage : public COiePropertyPage 
{ 

DECLARE^DYNCREATtCCSIobPropPage') 
DECURE„OLECREAlt.EX{C5lobPropPage) 

// Ibnstructor 
pui^c: 

- g^lobPropPageO; 

//■;l3ialog Data 

//{{AFX„DATA(CSbbPropPage} 
eltum { IDD = IDD_PROPPASE_eLOB }; 

// NOTE - ClassWizard wil! add data members here. 

.// DO NOT EDIT what you see in these blocks of generated code ! 
:|h}AFX„DATA 

//:ijT\plementation 
prpfected: 

virtual void DoDataExchange(CDataExchange* pDX); /-/ DDX/DDV support 

// N\essagc maps 
protected: 

//{{AFX.MS&(ceiobPropPage) 

// NOTE - ClassWizard will add and remove member f unctior^ here, 
.// .DO NOT EDIT what you see in these blocks of generated code ! 
//}}AFX_MS£ 

DECLAftE_MES5A&E„MAP0 

3; 

//{{ArX_INSERT_LOCATION}} 

// Microsoft Developer Studio will insert additional declarations immediately before the previous iine. 
#endif // !defined(AFX_SLOBPPe_H_5F20D2E6_78BC_llDl_9A9B_0Z0701045A6B_INaUD5D) 
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// Copyright 1998, 1999 5PX Corporation 

// Giob.cpp ■■ Implementation of CSlobApp and DLL registration. 

#includB "stdafx.h" 
#include "ebb.h" 

#ifdef .DEBUG 

#dcf ine new 5EBUe_NEW 

#undef THI5_FILE 

static char THIS.FILEG = FILE_J 

#endif 



CSIobApp NEAR theApp; 

const eUID CDECL BASED_CODE _ttid = 

i 0x5f 20d2d3, 0x788c, Oxlldl, { Ox9a, Ox9b, 0x2, 0x7, 0x1, 0x4, Ox5a, Ox6b } }; 
const WORD _wVcrMajor = 1; 
cc|dst WORD _wVerMinor = 0; 

./j///////////////////////////////////////////////////////////////////////// 
//vP&lobApp".InitInstance - DLL initialization 

BQQL C&lobApp::InitInstanceO 

... 

"IBOOL bInit = COleControlModule-.InitlnstanccO; 
'Mf (bInit) 

'if 

// TObO: Add your own module initialization code here, 
return blnit; 

} 



////////////////7/7//////////7////////////////////////////////////////////// 
II CSbbApp::ExitInstance - DLL termination 

int CSlobApp::ExitInstanceO 
{ 

// TODO: Add your own module termination code here, 
return COleControlModule-ExitlnstanceQ; 

} 



////////////////////////////////////////////// W 

// DIlRegisterServer - Adds entries to the system registry 

STDAPI DllRegisterServerCvoid) 
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{ 

AFX.MANAeB_5TATELGfxModuleAddrThis); 

if (! Af x01cRegistcrTypeUb(Af x&etlnstanceHandleO, «.tlid)) 
return ResultFromScode(SELFREe„E_TYPELIB); 

if 0COleObjectFactoryEx::UpdateRegistryAll(TRUE)) 
return ResultFromScodc(SELFREG_E_CLA5S); 

return NOERROR; 

} 



//////////////J/////////////////////////////J//////////////////////////////// 
II DllUnregisterServer - Removes entries from the system registry 

5TDAPI bllUnregister5erver(void) 

{ 

;aFX„MAK!A&E.STATEL2fxModuieAddrThis); 

' if (!Af xOleUnregisterTypeLibCjtlid, _wVerMQjor,_wVerMinor)) 
' return ResultFromScode(SELFRE&_EJTYPELJB); 

i|f (!COleObjectFQctoryEx::UpdateRegistryAll{FALSE)) 
g return ResultFromScode(SELFREe_E.CLA5S); 

ieturn NOERROR; 

} F 
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: Copyright 199B, 1999 SPX Corporation 
; Slob.def : beclarcs the module parameters. 

LTBRARY "SLOB.OCX" 

EXPORTS 

DIlCanUnloadNow ©1 PRIVATE 
Dli&etClassObject ©2 PRIVATE 
DIlRegisterScrver ©3 PRIVATE 
DllUnregisterServer ©4 PRIVATE 



// Copyright 1998, 1999 SPX Corporation 

// Slob,odl : type library source for ActiveX Control project. 

// Tnis file will be processed by the Make Type Library (mktypiib) tool to 
// produce the type library (Slob.tib] that will become a resource in 
// eiob.ocx. 

#include <olectl.h> 
#include <idispids.h> 

I uuid(5F20b2D3-788C-llDl-9A9B-020701045A6B), version(l.O). 

helpfilereiob.hlp"), 

helpstringC'&lob M/AF Interface"), 

control ] 
library SLOBLib 
{ 

importtib(5Tt>OLE_TLB); 
importlib(STDr/PE.UB); 

P/ Primary dispatch interface for CSiobCtrl 

' |uuid(5F20D2D4-78BC-ilDl-9A9B-020701045A6B), 
^^^JheipstringC'Dispatch interface for Slob Control"! hidden] 
■ lispinterf ace _DSIob 

% 

" properties: 

:i // NOIt - CiassWizard will maintain property information here. 
|;: // Use extreme caution when editing this section. 

//{{AFX_ODU_PROP(C&lobCtrI) 
I i I Iid(DISPID„HWND)] OLE.HANDLE hWnd; 

|id(l)] long Sloblndex; 

I'd(2)j long DimlSize; 

[id(3)] long Dim2Si2e; 

XidC4)] long ElementSize; 

[id(5)] long Type; 

Iid(6)] long Extra; 

[idC73J long DataSize; 

[id(8)] BSTk GlobName; 

Iid(9}]longFileSi2e; 

[id(lO)] B5TR FileName; 

[id(ll)] long Status; 

[id(12)] long Command; 

[id(13)3 long SlobPtr; 

[id(14)] long DataPtr; 

[id(15)] long AvaiiSize; 

[id(16)3 boolean ReadOniyMMF; 

[id(17)] boolean Notify; 

Iid(18)] short ValueS; 

[id(19)3 Ions Value32; 

[id(20)] short Valuel6; 

Eid(21)] BSTT^ StrValue; 

rid(22)] B5TR FullPath; 
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[id(E3)] boolean AutoSendNotify; 
[id(24)] iong nHandlcs; 
[id(25)] long nNotifyMaps; 
[id(26)3 long SbbSize: 
[id(27)] long Rcf Count: 
[id(28)] B5TR Version: 
fid(29)] BSTH UOM: 
[id(30)] BSTR Link; 
//1}AFX„0DL_PR0P 

methods: 

// NOTE - ClossWizard will maintain method information here. 

// Use extreme caution when editing this section. 

//{{AFX_ODL_METHOD(C&lobCtrl) 

[id(43), propget] long Value(long Dim2, long Diml); 

[id(43), propput] void Value(long b'mZ, long Diml, long nMewValue); 

[id(31)]longCloscMMF0: 

[id(32)3 long AddNew(B5TR SlobName, long Unitslndex, long Dim2Si2e, long DimlSize, long ElementSize, Ion 
g %pe. Ions Extra); 

' ? Iid(33)3 long AddNcwEx(BST1^ SlobName, BSTR UnitsName, long DimZSize, long DimlSize, long EiementSizc, lo 
ng^Jype, long Extra); 

Iid(34)3 boolean SetFirsteiobQ: 
% Eid(35)] boolean eetNextSlobQ: 
;|l [id(36)] void EroseQ; 

[id(373] void EroseMMFQ; 

Iid(44), propget] Jon3 NotifyHandle(short index); 

[id(44), propput] void NotifyHandle(short index, long nNewValue); 

[id(45), propget] short aValue8(long index); 
, y Iid(45), propput] void aValue8(lon5 index, short nNewValue); 
1 1 Iid(46), propget] long aVaiue32(lon5 index); 
;4 Iid(46X propput] void aValue32(iong index, long nNewValue); 

pd(47), propget] short aVaiuel6(long index); 

[id(47), propput] void aValuel6(iong index, short nNewValue); 

[id(48), propget] long ValueSDflong n); 

[id(4B), propput] void ValueSDClong n, long nNewValue); 

[id(38)] void Insert(long value, long Index); 

Iid(39)] long ResizeMMFCiong NewSize); 

[id(40)j void SendNotify(iong NotifylD, long Value); 

pd(49), propget] long NotifyMap(long index); 

pd(49), propput] void NotifyMapflong index, long nNewValue); 

[id(41)] boolean FormatMMF(long NotifyLimit); 

[id(42)] longlndexOfCBSTR SlobName); 

[id(50), propget] boolean NotifyOnChange(BSTI^ SlobName); 

[idC50), propput] void NotifyOnChange(B5TR SlobName, boolean bNewVaiue); 

//}}AFX.ODL_METHOD 

[idCDISPID„ABOUTB0X)3 void AboutBoxQ; 

}; 

// Event dispatch interface for C&lobCtrl 
[uuid(5F20D2D5-7B8C-llDl-9A9B-020701045A6B), 
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helpstringC'Event interface for Slob Control") ] 
dispintcrface _D&iobEvcnts 
{ 

properties: 
.// Event interface has no properties 

methods: 

// NOTE - CiossWizard will maintain event information here. 
// Use extreme caution when editing this section. 
//{{AFX.Ot)L_EVENT(CGIobCtrI) 

Iid(l)3 void ChangeCsliort PropID,, short Value, long SendID); 
//}}AFX_ODLEVENT 

}: 

// Class information for C&iobCtri 

Iuuid(5F20D2D6-788C-llDl-9A9B-020701045A6B)Jicensed, 

heipstringC'Slob Control"), control ] 
^^■doclass &\oh 

I 

■Jf [default] dispinterf Qce _t>&bb; 

'T Xdef Quit, source] dispinterf ace _D&iobEvents; 

1 

.)/{{AFX_APPEND_ODL}} 
r/i/]}Ai^_APPEND_0DL3} 
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// Copyright 199B, 1999 SPX Corporation 

// &lobCtl.cpp : Implementation of the CSlobCtr! ActiveX Control class. 



#inclucie "stdafx.h" 
#include "&lob,h" 
#include "SlobCtl.h" 
#inciude "GlobPpg.h" 

#include "sys/types.h" // for file status buffep_stGt 
#include "sys/stat.h" // for _fstat file status call 



#ifdef _DEBU5 

#def ine new DEBUe_MEW 

#undef THIS_FILE 

static char THIS.FILEQ = _FILE__; 

#endif 

#def ine MIN!_FILESIZE 8192 
#h.fim lO&_EkkOkS FALSE 

hAJvIDLE myhWnd; 

HANDLE ADhlnstance; 
ur^'igned char bResFlag; 
M%DLE *iaModules; 
int *iaSlobal; 
Bj5|rR saSloba!; 
C^tring reftemp; 

//BOOL UneDebug = false; 

LP€TSTR m_Messoge = "msg&iobChange"; 
//long BitList[32]; 

// HELPER FUNCTION PROTOTYPES -RK 
CString &etName(CStrin9); 
long Power(int); 

void LogErrorString(C5tring zTrsfr); 

IMPLEMENT_DYNCREATE(CSIobCtrl,C01eControI) 

/////////////////////////////////////////////////////////////////// 
//Register for an external windows message 

UINT USER_VALUECHANeED = RegisterWindowMessage(m_Message); 

///////////////////////////////////////////////////////////////////////////// 
/ / K\^sag& map 

BE!?IN_MESSA&E_MAP(CeiobCtri, COleControI) 
//{{AFX_MS&_MAP(ceiobCtr[) 
//}}AFX_MSS_MAP 



ON_OLE\€RB(AFX_IDS_VERB_PROPERTTES,OnPrDperties) 
ON_RE&I£TtRED_ME5SA&E(USEft_VALUcCHANSED,OnValueChanQed) 
END_AAESSA&E_MAPO 



///////////////////////////////////////////////////////////////////////////// 
// Dispatch map 

BEerN_DISPATCH_MAP(CSlobCtrl, COleControI) 
//C{AFX_DISPATCH_MAP(CSbbCtrl) 

DISP_PROPERT/_EX(ceiobCtrl, "eioblndex", eetgloblndcx, SetSloblndex, VT_I4) 

DISP_PROPERTy_EX(C<5lobCtrl, "DimlSize", SetDimlSize, SetDimlSize, VT_I4) 

DISP_PROPERT/_EX(CeiobCtrl, "DimZSize", &etDim2Size, SetDimESize, VT_I4) 

i:)ISP_PROPERTy_EX(ceiobCtrl, "EiementSizc", &e+ElemcntSize, SettlementSize, \rr_I4) 

DISP_PROPERTY_EX(C&lobCtpl, "Type", SetType, SetType, VT_I4) 

DISP_PROPERTy_EX(CelobCtrI, "Extra", SetExtrc, SetExtra, VT_I4) 

DISP_PROPERTY_EX(ceiobCtrl, "DataSizc", eetDataSizc, SetDotaSize, VT_I4) 

DISP_PROPERTY_EX(C61obCtrl, "SlobName", SeteiobName, Set&bbName, VT_BSTR) 
."blSP_PROPERT/_EX(cebbCtrl, "FileSize", GetFileSize, SetFileSize, VT_I4) 
^J|>ISP_PROPERTy_EX(ceiobCtrl, "FileName", SetFiieName, SetFileName, VOlBSTTi) 
JblSP_PROPERTy_EX(CGlobCtrI, "Status", SetStatus, SetStatus, VT_I4) 
.*bISP_PftOrERTy_EX(CebbCtrl, "Command", SeTCommand, SetCommand, VT_I4) 
^ jpISP_PROPERT/_EX(C&lobCtrl, "SbbPtr", SeteiobPtr, SeteiobPtr, VT_I4) 
:;$ISP_PROPERTy_EX(CSbbCtrl, "DataPtr", SetDataPtr, SetDataPtr, VT_I4) 
jjlSP_PROPERTy_EX(CeiobCtrl, "AvailSize", SetAvailSize, SetAvailSize, VT_I4) 

blSP_PROPERTy_EX(C&lobCtrl, "ReadOniyMMF", SetReadOnlyMMF, SetRcadOnlyMMF, VT_BOOL) 
;:-piSP_PROPERTY_EX(CSbbCtrl, "Notify", SetNotify. SctNotify, VT_BOOL) 
=;DISP_PROPERTy_EX(CGlobCtrl, "ValueB", fietByteValue, SetByteVaiue, VT_I2) 
::ibISP_PROPERTy_EX(C&bbCtrl, "Value32", SetLValue, SctLVaiue, VT_I4) 
;f blSP_PROPERTy_EX(CSbbCtrl, "Valuel6", SetlValue, SetlValuc, VT_I2) 
-blSP_PROPERTy_EX(C&bbCtrl, "StrValue", SetStrValue, SetStrValue, VT_BSTR) 
^blSP_PROPERTy_EX(C&bbCtrl, "FullPath", SetFullPath. SetFullPath, VT.BSTR) 

DISP_PROPERTy_EX(CSbbCtrl, "AutcSendNotify", 6etAutcSendNDtify, SetAutoSendNotify, VT_BOOL) 

I:)ISP_PROPERTY_EX(C&lobCtrl, "nHandles", SetNHandles, SetNHandies, VT_I4) 

DISP_PROPERTy_EX(CSbbCtrl, "nNotifyMaps", SetMNotifyMaps, SetNNotifyMaps, VT_I4) 

DISP_PROPERT7_EX(CfibbCtr!, "SiobSize", i&et&bbSize, SetSlobSize, 

DISP_PROPERTy_EX(CSbbCtrl, "RefCount", &etRef Count, SetRefCount, VT_I4) 

!iISP_PRO?ERTY_tX(CSbbCtrl, "Version", SetVersion, SetVersion, VT^STR) 

DISP.PROPERTY.EXCCSIobCtrl, "UOM", SetUOM, SetUOWi, VT_B5TR) 

DISP_PROPERTY_EX(CSbbCtrl, "Link", SetLink, SetLink, VT_BSTR) 

DISP_FUNCTION(cebbCtrl, "CbseMMF", MMFCbse, VT_I4, VTS.NONE) 

DISP_FUNCTrON(CebbCtrl, "AddNew", MMFAddSlob, VT_r4, VTS.BSTC VTS_I4 VTS_I4 VTS_I4 \rr5_I4 vn-S_I4 T\ 

DISP_FUNCTrON(CebbCtrl, "AddMewEx", MMFAddSlobEx, VT_I4, VTS_BSTT^ VTS.BSTR VTS_I4 VTS_I4 VTS_I4 VTi 

DlSP_FUNCTrON(CSlobCtrl, "SetFirstSlob", SetFirstSlob, VT_BOOL, VTS.NONE) 

t)ISP_FlJNCTION(CSIobCtrl, "SetNextSbb", GetNextSbb, VT_BOOL, VT5_N0N1E) 

DISP_FUNCTT0N(C(5bbCtrl, "Erose", Erase, VT_EMPTY, VTS_NONE) 

DISP_FUNCTT0N(Cl5bbCtrl, "EraseMA\P', MMFErase, VT_EMPTy, VTS_NONE) 

DISP.FUNCTiONCCtSbbCtrl, "Insert", Insert, VT_EMPTy, VTS_I4 VTS_I4) 

DISP_FUNCTTON(cebbCtrl, "ResizeMMF", RcsizeMMF, V7_I4, VTS_I4) 

DI5P_FUNCTION(CSiobCtrl, "SendNotif y", SendNotifyX, vn-_EMPTy, vn"5_I2 VTS_I2) 

DISP_FUNCTrON(CSiobCtrl, "FormatMMP", FormatMMF, VT_BOOL, VTS_I4) 

DISP_FUNCTrON(C&bbCtrl, "IndexOf", IndexOf , VT_I4, Vn-S_ESTR) 
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DISP_PROPERTy_PARAM(CeiobCtrl, "Value", SetValue, SetVabe, VT_I4, VTS_I4 VTS_I4) 
DISP_PROPERTy_PARAMCCSIobCtrL "NotifyHandle", GetNotifyHandle, SetNotifyHandle, VT_I4, VTS_I2) 
DISP_PftOPERTY_PARAMCCGiobCtrl, "aValueB", SctAbValuc, Se+AbValue, VT_I2, VTS_I4) 
DISP_PROPERTy_PARAM(CSlobCtrl, "oValue32", SctAlVolue, SetAlVoiue, VT_I4, VTS_I4) 
DISP_PROPERT/_PARAM(CeiobCtr!, "aValuel6", SetAiVolue, SetAiValuc, VT_I2, VTS_I4) 
DISP_PftOPERTy_PARAM(CSlobCtrL "ValueSD", SetValueSD, SctVoiueSD, VT_I4, VTS_I4) 
DISP_PROPERT/_PARAM(CSlobCtrL "Notify Map", SetNotifyList, SetNlotifyList, \rr_I4, VTS_I4) 
DISP_PROPERT/_PARAM(CSlobCtrl, "NotifyOnChonge", SetNotifyOnChange, SetMotifyOnChange, VT_BOOL, VTS_BSTR; 
DISP_DEFVALUE{CGlobCtrl,"Value32") 

DISP_STOCKPROP_HWND0 
//}}AFX_DISPATCH_MAP 

DI5P_FUNCTION_ID(CGiobCtr!. "AboutBox", DISPID_AB0UT30X, AboutBox, VT_EWiPTY, VTS_NONiE) 
END_DISPATCH_MAP() 



///////////////////////////////////////////////////////////////////////////// 
// Event map 

BfeN_EVENT_MAP(CebbCtrl, COleControI) 
J/{{AFX_EV€MT_MAP(CSlobCtr!) 

/ivENT_CUSTOMC"Change", RreChange/vTS_I2 VTS_I2 •vn-S_I4) 

■ :!2/}}AFX_E'\'ENT_MAP 

E^iD_EVENT_MAPO 



///////////////////////////////////////////////////////////////////////////// 
//iiroperty pages 

//^TODO: Add more property poges as needed. Remember to increase the count! 
B^IN_PROPPA(5ElDS(CSIobCtrl, 1) 
^ f ROPP AeEID(C5bbPropPcge::guid) 
EWb_PROPPA&ElDS(CSiobCtrI) 



///////////////////////////////////////////////////////////////////////////// 
// Initialize class factory and guid 

IMPL£M£NT_OLECR£ATE_EX(cebbCtri,"eLOB.eiobCtrl.r, 

0x5f 20d2d6, 0x785c, Oxlldl, 0x9a, Ox9fa, 0x2, 0x7, 0x1. 0x4, 0x5a, Ox6b) 



///////////////////////////////////////////////////////////////////////////// 
// Type library ID and version 

IMPLEMENT_OLETyPELIB(CSbbCtrl, _tiid, _wVerMajor, _wVerMinor) 



///////////////////////////////////////////////////////////////////////////// 
// Interface lbs 

const ITD BASED.CODE HD.DSbb = 

{ Oxof 20d2d4, 0x788c, Oxlldl, { 0x9a, Ox9b, 0x2, 0x7, 0x1, 0x4, 0x5a, Ox6b } }; 
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const IID BA5ED_CODE IID_D&lobEvents = 

{ Ox5f 20d2d5, 0x7BSc, Oxlldl, { Dx9q, 0x9b, 0x2, 0x7. 0x1, 0x4, 0x5q, Ox6b ] j; 



///////////////////////////////////////////////y///////////////////////////// 

// Control type information 

static const DWORD BASED_CODE ^dwSlobO^eMisc = 
OLEMISC_ACTIVATEWHENVISIBLE 1 
OLEMISC_SETCLlENTSITEFIftST 1 
OLEMISC.INSIDEOUT I 
OLEMISC„CANUINKINSIDE 1 
OLEMISC_RECOMPOSEONftESIZE; 

IMPLEMENT^OLECUTYPECC&bbCtrl IDS.SLOB, .dwSlobOleMiscJ 



///////J/////J///////J////////J//J/.///J/J/JW///1////J/J///J//////////////// 

/£C&iobari::C&lobCtrlFactory::UpdatcRegtstry- 

//lAdds or removes system registry entries for C&bbCtrl 

B<l0L ceiobCtri::CSlobCtrlFactory::UpdateRegistryCBOOL bRegistcr) 

{;;; 

''^1/ TODO: Verify that your control follows apartment-model threading rules. 
^'JJ Refer to MFC TechNote 64 for more information, 
„, // If your control does not conform to the apartment-model rules, then 
\^/ you must modify the code beiow, changing the 6th parameter from 
; S?/ af xRegApartmentThreading to O. 

(bRegister) 

return Afx01eRegisterControlClass( 
AfxSetlnstancerlandleO, 
m_clsid, 
m^lpszProglD, 
IDS_SLOB, 
IDB.SLOB, 

afxReg Apartment Threading , 

_dwi51obOleMisc, 

_tlid, 

^wVerMajor, 
_wVerMinor); 

else 

return Afx01eUnregisterClass(m_clsid, mJpszProgID); 



///////////////////////////////////////////////////////////////////////////// 
// Licensing strings 

static const TCHAR BASED^CODE ..szUcFileNameQ =:_T("SlobJic"); 

static const WCHAR BASED^CODE .szLicStringO = 
L'^Copyright (c) 1999 5PX"; 
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.///////////////////////////////////////////////////////////////////////////// 

// CSlobCtrl::C&lobCtrlFactory::VepifyUserLi cense - 
// Checks for existence of a user license 

BOOL ceiobCtrl::CeiobCtHFactory::VerifyUserLicenseO 

{ 

return AfxVerifyLicFile(Afx&etInstQnceHQndleO, _szUcFileNamc, 
_szLicString); 

} 

iiinjiii/iiiiiiiiiiiiJiiiiiiiiiiiiu/iiiuiii/iiiii/iituiii/iiiniuiiiiiii 

J I C&lobCtrt::CeiobCtrlFactory::eetLicenseKcy - 
// Returns o runtime licensing key 

BOOL ■CeiobCtrl::CeiobCtrlFactory::&etLi censeKeyCD WORD d wRcserved, 
-gSTR.FAR*pbstrKey3 

iSf (pbstrKey= NULL) 
f return FALSE; 

=;^pbstrlCey = SysAibcStringL-SzLicString); 
-=return;(*pbstrKey 1= NULL); 



/Wifiii/i/iiiij/j/jniijN/iiiNiiinjNiiiiiN/NJN/nij//n/iiii/iiiiiii 

//:'C&lobCtrl::CeiobCtrl - Constructor 
CSlobCtri::CeiobCtrlO 

lnitiali2eIIDs{dirD_Deiob, &IID_D6!obEvents); 

// TODO: Initialize your control's instance date here. 
SetInitialSi2e( 32, 32 ); // Force to have o certain size at startup 

IpLcst- NULL; 
ipView = NULL; 
s_hFileMap = NULL 
hFileMapT=NULL- 
f = NULL- 
aiofaLock = NULL; 
MMFLock = NULL; 
ni_FileName = "C:\\eLOBMMF'; 
!r,_FiieS!2e = AMN_FILESIZE; 

eiobPtr = 0; 
m_^Notrfy = false; 

} 
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///////////////////////////////////////////////////////////////////////////// 
// CSlobCtrl::~CSlobCtrl - Destructor 

CSIobCtrl::~cebbCtrlO 
{ 

// TODO: Cleanup your control's instance date here. 

RemoveNotify(GlobPtr,&etSafeHwndO); 
if (lpView){ 

lpView->RefCount~; 

UnmapViewOfFile((LPVOID) IpView); 

eiobPtr = NULL- 

lpView=NULL; 

ipLast=NULL; 

CloseHandle(s_hRleMap); 

CloseHandle(f); 

) 

,rf: (SlobLock) delete SlobLock; 
^iobUck = NULL 
i (MMFLock) delete MMFLock; 
^MFUckr NULL: 



imjiiriuniinuinujujiuinnnN/u] 

//liSlobCtr!::OnDraw - Drawing function 

voitj C&iobCtrl::OnDraw( 

CDC* pdc, const CRectd rcBounds, const CRect& rdnvalid) 

{,■::; 

// TODO: Replace the following code with your own drawing code. 
CRectr; 

CPictureHolder pict; 

if GAmbientUserModeO) { 

r = rcBounds; 

r.right = r.left 31; 

r.bottom =^ r,top + 31; 

pict.CreateFromBitmap(rDB„eLOB); 

pict.Render(pdc,r,r); 

5etControl5i2e(32,32); 
} else { 

5howWindow(SW_KIDE); 

} 



//////////////////////////////////////////////////////y////////////////////// 
// C&lobCtri:;DoPropExchange - Persistence support 

void ceiobCtrl::DoPropExchange(CPropExchange* pPX) 
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{ 

CS tring strkesult; 

ExchangeVcrsion(pPX, MAKELONSLwVerMinor, _wVerMajor)); 

COIeControl::DoPropExchan9e(pPX); 

long ret; 

// TODO: Call PX_ functions for each persistent custom property. 
{ 

// Make FiieName property Persistent 

PX_String(pPX_T(TileNbme"Xm.FileName/'C:\\eLOBMMF'); 
5etFileName(m_FileName); 

// make fibbName persistent 

PX.String (pPX, _T("SlobName"), m^SlobName, ""): 

Set&lobName( m^SlobName): // look up the Slob for this name, should reiookup 

a PX3ool(pPX^"AutoNotif/0^AutoNotify;true); 

31 



If'et = SetVisibieQ; 

///^/////////y////y////////////y/////////////////////w 

// geiobCtrl::OnResctState - f^eset control to default state 
void CeiobCtrl::OnResetStateO 

:eOleControl::OnKesetStateO; // Resets defaults found in DoPropExchange 

// TODO: Reset any other control state here. 

3 



///////y/////////////////////////////////7/7//////j////////////////////////// 

.// CSlobCtrt::AboutBox - Display an "About" box to the user 

void CeiobCtrl::AboutBcxO 

{ 

CDialog dlQAboutCIDD_ABOUTB0X_SLOB); 
digAbout.DoModalO; 

} 



///////////////////////////////////////^^^ 
.// CSiobCtrl message handlers 



long C&bbCtrl::&eteiobIndexO 

{ 



// TODO: Add your property handler here 
if (eiobPtr) 

return (int)(&lobPtr)-(int)lpView; 
return -1; 

} 

void C&iobCtrl::Sct&lobIndexCbng nNewValue) 
{ 

// TODO: Add your property handler here 

if ((nNewValue >= lpView->FirstSlob) && (nNewValue <= lpView->Ncxt Avail)) // in ronge?... 
{ 

RemoveNotify(eiobPtr,&etSafeHwndO); 

GlobPtr = (tSlob *)((int)lpView + nNewValue); // hope caller knows what he's doing 

if (eiobPtr) 

{ 

datasizc = &lobPtr->datasi2e; 
SetSlDbName((LPCTSTR)eiobPtr->name); 

I 

SetModifiedFlagO: 

} % 

lo^ ceiobCtrl:-.6etDin\lSi2eO 
{ 

:N TODO: Add your property handler here 

^Jf (eiobPtr) 

1| return eiobPtr->diml; 

flsturn -1; 

} 

void C&lobCtri:;SetDimlSi2e(long nNewValue) 
{ 

// TODO: Add your property handler here 
if (eiobPtr) 

&lobPtr->diml = (short)nNewValue; 
SetModifiedFlagO; 

} 

long C&lobCtrl::6etDim2Si2eO 
{ 

// TODO: Add your property handler here 
tf (SlobPtr) 

return SlobPtr->dim2; 
return -i: 

} 

void C(5lobCtri::SetDim2Si2e(long nNewValue) 
{ 

// TODO: Add your property handler here 
if (eiobPtr) 
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&lobPtr->dim2 = (short)nNewValue: 
SetModifi&dFbgO; 

} 

Ions ceiobCtrir.&etElementSizeO 

{ 

// TODO: Add your property handler here 
if(eiobPtr) 

return &lobPtr->eitsi2e: 
return -1; 

} 

void C&lobCtrhiSetEiementSizcfbna nNewVdue) 

{ 

// TODO: Add your property handier here 
if (eiobPtr) 

eiobPtr->eltsi2e = (short)nNewValue: 
SetModifiedFlagO; 

3 .:i 

'\or§ CGlobCtrl::&etTypeO 

'{ 5 

27 TODO: Add your property handler here 
1 (SlobPtr) 

[ I return £bbPtr">type: 
return -1; 

} J 

vo)^ cebbCtrl::SetTypeClons nNewVabe) 

{ In ■ 

TODO: Add your property handler here 

(SbbPtr) 

&iobPtr->type =: (short)nNewValu£; 
SetModrfiedFbgO: 

} 

ions cebbCtrl::SetExtraO 

{ 

// TODO: Add your property handier here 

if (SbbPtr) 

return 51obPtr->extra; 
return -1; 

} 

void CebbCtr[::SetExtraCbns nNewVaiue) 
{ 

// TODO: Add your property handler here 
if (SbbPtr) 

ebbPtr->extrG - (short)nNewValue; 
SetModifiedFiagO^ 
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long CeicbCtrl::SetDctc5i2eO 
{ 

// TObO: Add your property handler here 
if (SlobPtr) 

return &lobPtr->datasi2e; 
return 0; 

} 

void CSlobCtrlr.SetDatcSizeClong nNewValue) 
{ 

// TODO: Add your property handler here 
if (SlobPtr) { 

&lobPtr->datasize = (short)nNewValue; 

datasize ~ SIobPtr->datasi2c; 

} 

SetModifiedFlagO; 

} 

'■11 

Bi^TR CeiobCtrl::SeteiobNameO 

■ipSfring strResult; 
jpYTt namllT); 
■^fnt i; 

"if (eiobptr) 

A 

for (i=0;i<16;i++3 namO] = SlobPtr->name[i3; 
% nam[16]= '\0'; 

: n StrResult = nam;//m_&lobName;//nam;//SlobPtr->name; 
=Feturn strResult-AlbcSysStringO.' 

} 

void ceiobCtrl::SetSlobName(LPCT5TR ipszNewValue) 
{ 

CString MutexName; 

//Ch anging value of GiobNlame does read of &lob. If found, new properties are seen. 

RemoveNotify(SlobPtr,&etSafeHwndO); 

eiobPtr = (tSIob *) MMF&eteiobPtrClpszNewValue); 

if (elobPtr) 

{ 

dctcsize = £lobPtr->datasi2e; 
m_ebbName = IpszNewVaiue; 

} 

else 

{ 

m_S!obN!ame£niptyO: 

} 



SetModifiedFlagO; 



10 



} 

long CSIobCtrl::&etFileSi2cO 
{ 

// TODO: Add your property handler here 
return m_FileSize; 

} 

void C&lobCtri::SetFileSi2c(lon9 nNewValue) 

{ 

// TODO: Add your property handier here 
SetModifiedFlagO: 

} 

BSTR C&lobCtri::&etFiieNameO 
{ 

CString 5trResult; 

// TODO: Add your property handler here 

grrResutt = m„FiieName; 

return strResutt^AllocSysStringQ; 

} 

vbiS CGiobCtrl::SetFileName(LPCTSTR ipszNewVaiue) 

bng retvai; 
^^tring oldfilename; 
CString CurrentSlobName; 

^llurrentSlobName = SeteiobNameO; 
^oldfilename = m_FileName; 
m_FileName,Format("%sMpszNewVaiue); 
m^FiieSize = B192; 

CString x; 

//.Af xMessageBoxC'Setting file name."); 
retvai = MMFCreateQ: 

//x.FormatC'MMFCreate returned: 7oi",retvaO; 
.//AfxMe£sageBox(x); 

if (retvai != OK) { 

//AfxMessageBox("Set Filename failed."): 
m_Fi!eName = oldfilename; 
retvai = MMFCreateQ; 
if (retvai k 0K){ 

m^FileName = »^&iobMMF^; 

MMFCreateQ; 

Set£lobName(Currcnt£bbName); 
ThrowError(0 /'failed to create MMF!",0); 

} 

Set£lobName(CurrentSiobName); 



ThrowError(0 /Tn vali d Fi IcName." ,0); 

- } 

//Af xMessageBoxC'File Name sel"); 

SetSlobName(Current&bbNaTne); 

SetModifiedFlagO; 

} 

long CSIobCtrl::&etStatusO 
{ 

// TODO: Add your property handler here 
if (eiobPtr) 

return SlobPtr->status; 
return -1; 

} 

void ceiobCtrl::SetStatusClong nNcwValue) 

{ 

.// TODO: Add your property handler here. 
;f (eiobPtr){ 

,0 GlobPtr-J^atus = (short)nNewValue; 

ill 5endNotify(SlobPtr,lp\«ewJDSTATUSXshorOnNewVabe); 

-SetModifiedFlagO: 

}:;^) 

Idrig C&lobCtrl::&etCommandO 
{ 

,f (SlobPtr) 

; ^ return £iobPtr->command; 
■^return -1; 

void CSlobCtri::SetCommand(long nNewValue) 

{ 

// TODO: Add your property handler here 
if (eiobPtr){ 

SiobPtr->command = {short)nNew\/aiue; 

SendNotify(ebbPtr,lpViewJDCOMMAND,(short)nNewValue); 

} 

SetModifiedFlagO; 

} ■ 

long Ci51obCtrl::eetGlobPTrO 

{ 

// TODO: Add your property handler here 
return (long)5lobPtr; 

3 

void ceiobCtri::Set&iobPtr(iong nNlewVaiue) 
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{ 

// TODO: Add your property handler here 
RemoveNotify(&lobPtr,&etSafeHwndO); 

eiobPtr " (tGlob *)nNewValue; // hope caller know what he's doing, 
datasize = &lobPtr->datasi2e; 
5eteiobName((LPCT5TR)SlobPtr->name); 
SetModifiedFlagO; 

} 

long CGIobCtrl::GetDataPtrO 
{ 

// TODO: Add your property handler here 
if(&lobPtr) 

return (lon3)(<S((&bbPtr->data));// + sizeof (teiob); 
else 

return 0; 

} 

vol! CSIobCtrl-SetDataPtrClong nNewValue) 

{ .11 

ti TODO: Add your property handler here 
//'■^etModtfiedFiagO; 

} :i; 

lon;g, ceiobCtrl::&etAvailSi2eO 

{ 'i 

■|/ TODO: Add your property handler here 
% CIpView) 

return m^RleSize - lpView->Next Avail; 
else 

return 0; 

} 

void CeiobCtrl::5etAvail5l2e(iong nNewValue) 

{ 

// TODO: Add your property handler here 

// SetModifiedFlagO; 
} 



BOOL CeiobCtrt::SetfteadOntyMMF0 
{ 

// TODO: Add your property handler here 
if (ip View) 

return (BOOL)ipView->f<eadOniy; 
else 

return 0; 

} 
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void CeiobCtrl::SetRcadOniyMMF(BOOL bNewValue) 
{ 

// TObO: Add your property handler here 
lpVicw->ReadOnly = (int)bNewValuc; 
SetModifiedFlagO; 

} 

BOOL CSlobCtrl:-.fietMotifyO 
{ 

// TODO: Add your property handler here 
return m_Notify; 

} 

void CeiobCtri::SetMotif y(BOOL bNewValuc) 

{ 

// TODO: Add your property handler here 

lOOLret; 
iwND hWind; 

SSingleLock LockMe(SlobLock); 

ilf (lAmbientUserModeO) { 

ThrowError(CTL_E_PERMISSIONDENIED;"This property can only be set at runtime.", 0); 
'! return; 

■#GeiobPtr}{ 

,;| ThrowError(CTL_E_PERMISSIONDENIED;'eiobName property is not5et.\n Can not register Slob for notification.") 

l\ return; 

LockMe.LockO: // waits infinitely for resource to be available. 

// can use a timeout value cs a parameter (msj if desired. 

hWind r &etSafeHwndO; 

if (bNewValue) 

ret = AddNotEfy(SiobPtr,h Wind); 
else 

ret = ftemoveNotify(GlobPtr,hWind); 

if (ret) 

m_N!otify = bNewValue; 

LockMe.UnlockO; 

SetModifiedFlagO: 

} 
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long C(51obCtrl:;GetValuB(long DimZ. lor^ Diml) 

{ 

long 1; 

if (SiobPtr) 
{ 

I = (DimZ * GlobPtr->diml) + Diml: 

if {(1* eiobPlT->e1+si2e)< eiobPlT->datasize) 

{ 

switch (GlobPtr->eltS!2e) 
{ 

case 4: return eiobPtr->datQ.Long[l3; 
case 2: return &lobPtr->data.Short[l]; 
default: return eiobPtr->data.Byte[I3; 
} 

3 

3 

return -1; 



vdJci CGIbbCtrl::SetValueClong DimZ, long Diml, long nNewVaiue) 

■■^tong 1; 

: j-f G(ipView->ReadOnly)) 

: ; if (SlobPtr) 

I = (Dim2* GiobPtr->diml)-^ Diml; 

if ((1 ^ SlobPtr->eltsi2e } < eiobPtr->datasi2e) 

;t| I 

-n switch (SbbPtr->eitsi2e) 

:{ 

case 4: Si obPtr->data.Long[13 = nNewVaiue; 
break; 

case 2\ SlobPtr->data^iiort[13= (short)nNewVaiue; 
break; 

default: SlobPtr->dataByte[l] r (BYTE) nNewValue; 
break 

} 

// notify controls on list of change 
//if (SlobPtr->notify !=03 

5£ndNotify(eiobPtr,ipViewJDVALUE,0); 

} 

3 

//SetModifiedriagO; 

3 

3 



MMFCreote: Create file (or just open it) and map 0 View to it 

long CeiobCtrl::MMFCrcate(void) 

{ 
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struct _5tatbuf; 
int result j: 
CString MA^FName; 
BOOL RrstMapping; 
char buffert256]; 
//CString temp; 
//BYTE *testView; 
y/BYTt tcstRead; 
BYTE *MMFLastByte; 
long OldFileSize: 
long NewFileArca; 
long HandleUstSize: 
DWORD fileretval; 
long errcode; 



if (tpView){ 

/yreftemp-Format("Ref Count" (MMFCreate) f =%i",f ); 
■■^ //AfxMessageBox(reftemp); 
, Ip View->Ref Count— ; 

UnmapViewOfFile((LPVOrD) ipV^ew); 
,p &lobPtr = NULL: 
U ipViewf=NULL; 
:i| ipLcstrNULL; 
;: CloseHandle(5_hFi ieMap); 
•'^ CbseHandle(f); 

if (eiobLock) delete eioBLock; 

SlobLockrNULL; 

if (M/AFUck) delete MMFLock 

/AMFUck = NULL; 



//AfxMessapeBoxC'Made it pest unmapping stuff"); 
fileretval = ::&etFullPathName(m_FiieName,254jDuffer,NULL); 

if (fileretval = 0) { 

m^FullPcth = m_FileNan:\e; 
lelse{ 

.m_FullPath.FormatC'7oS",CLPCTS"m)buffer); 

} 

//AfxMessageBoxCm.FulIPath); 

MMFName = 5etName(m_FuIlPath); 

// Initialize the Mutex objects 

SPX_NOTrFy„MUTtX r MMFName ^ "NOTTFY"; 

5PX„MMF„MUTEX = MMFName + "MMF"; 

5iobLock = new CMutex(faise,SPX_NOTIFy_MUTEX,NULL); 
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MMFLock = new CMutcx(f alse^PX_MMF_MUTtX>lUU.); 



//AfxAAessa9EBox(A^MF^lame); 
/* Set daio associated with file */ 

result = _stat( m_FullPath, &buf ); /./ result will be -1 if file does not exist 

//if the file exists then get its f ilcsize 
if(lresult){ 

if (buf ^_si2e > m_Rle5ize) 

m_FileSi2e = l>uf,st_si2e; // get size of file 

OldRleSize = buf jst_size; 
}eise{ 

OidFileSize= 0; 

} 

//DEBUS 

//temp.FormatC'MMF FileSize= %d\n",m_RleSi2e); 
//LogErrorStri ng(temp); 

# Create an in-memory memory-mapped file. 

= CreateFiic( m_FuIIPath, 
^= eENERIC_READ 1 GEMERIC_WRITE, 

FILE_SHARE_READ | FILE_SHARE_ WRITE, 
'M MULL, 

:;; open.always, 

FILE_ATTRIBUTE_NORMAL, //FileAttr, 

'3 Nua): 

■:ff (f ==INVALID_HANDLE_VALUE) 

;S 

/Mf xMessa3eBox("£ant open file"); 
y/RaiseException(997,0,0,0); 
l'^'^ //ThrowError(0 /'Invalid File Namc",0); //ThowError only works in properties and methods 
return EftR.INVALTDFILENAME; 

} 

//AfxMessageBoxC'File opened OC): 
y/&row the file 

5etFiisPointer(f,m_rfie5i2e,NULL,rILE_BESIN); 

5etEndCfrile(f); 

//Error checking? 



s_hFileMcp = CreateFiieMapping(f , NULL, PASE^ftEADWRITE, 0, 0, MMFName /*ViewName*/); 
// s^hFiieMap - CreateFiieMapping((HANDLE) OxFFFFFFFF, NULL. PA&E„RE AD WRITE, 0, MMFSize, MMFName); 



errcode =: SetLostErrorQ; 

//reftemp.Format("Error code 7ol (%i)",errcode,ERKOR_ALKEADVLEXI5T5); 

//AfxMessQgeBox(reftemp); 

if (errcode == ERROR^ALREADY.EXISTS) { 

FirstMapping = faise; 
} else { 
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First Mapping = true; 

} 

if (s.hFileMap b NULL) 
{ 

// if (SetLostErrorO == ERftOR_ALREADy_.EXI5TS) Mcssa^eBoxCmyhWnd ^TEXT("MMF Already Exists."). NULL. MB. 

// File mapping created successfully. Map c view of the file into the address space, 

ipView = (tControl *)MapViewOf File(s_hFi1eMap, FILE.MAP.WRTTE 1 ,FILE_MAP_READ, D, 0, 0); 

if (lpViewi= NULL) 

{ 

//fill in O's if file Is expanded 
if (m.FileSize > OldFileSize){ 

//LogErrorStringC'Filting in new memory with 0's\n"i' 

MMFUstByte = (BYTE *)((lon3)lpView + OidFileSize); 

NewFileArea = m^FiieSize - OidFileSize; 

memset(MMFi,cstByte,0,NlewHieArea); 

} 

:;i .//set rest of Siob Attributes 

0 if CipView->nNotifyMaps == 0) 

;H lpView->nNotifyMaps = DEfLNOTTFyMAPS; 

P HandieListSize ~ 32*si2eof (ion3)*lpView->nNotifyMaps; 

m_MaxLinks = lpView->nNotifyMaps*3Z; 
;:;J ipView->Si2e = m^FileSize: // make global 

lpView->FirstSlob = sizeof ( tControl ) HandieListSize; 

ipLost ' (BYlc *)ipV^iew + m.FileSize - sizeof (tSlob) - sizeof (int); 

if (lipView->NextAvai!) 

lpView->NextAvall = sizeof ( tContrd ) HandieListSize; 

■n //rcftemp.Format("ftefCount-Hh.(MMFCreate)f=%r/); 
y/ Af xMcssageBox(ref temp); 
ip View->Ref Count++; 

// clear out Notify array if this is the first mapping 
if (FirstMapping) { 

//AfxMessageBoxC'First Mapping, Clearing .Notify Handles"); 

for 0=O;i<m_MaxUnks;i-w-j 
lpView->NotifyHandle[i] = 0; 

ipView->Ref Count = 1; 

// Reset globs 

MMFResetSlobsQ; 

} 

return OK; 

} 

else 

{ 

return ERR_CAMT_MAP_VIEW_aF_FILE; 

} 

} 

else 

{ 
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return ERR_CANT_CREATE_FILE_MAPPIN5 ;-2,- 

} 

return ERR_INVALrDFILENAM& 

} 

iniiiijiiijijfjjijjnuiuiniiujnjiininiiijn//jjiiin.m 

J. I Create a unique MMF view name from the MMF filename -RiC 

JiJuiuimijnjNnmjiijjiimjijiininjiujiuuiuiiuN 

CString &etName(C5tring s) 
{ 

intij; 

CString Bufferj 
int len; 

//AfxMessageBox(s); 
j = 0; 

len = s.GetLengthO; 

E' load Buffer with spaces 
Por {i=0;i<lcn;i++) 
Buff er = Buff er + " 

for (i=0;i<ien;i++){ 

::; if (s[i]!='\\'3{ 

Buffer-SetAtQ^O]); 

iBuffer.TrlmRightO; 

//^-Buffer = s.Right((i&n-i)-l); 
BuffenMokeUpperQ; 
return Buffer; 

} 

long C&lobCtrl::MMFOpen(LPCTSTR FileName, longHleAttr, LPCTSTR ViewNome long RIeSize) 
{ 

// Create an in-memory memory-mapped file 

.// 

FileAttr = FILE_ATTRIBUTE_NORMAL; // force it for now 
f = CreateFiie( FileName, 

SENERIC.READ | eENERIC.WRTTE, 

FILE_SHARE_READ | FILE.SHARE.WRITE, 

NULL, 

OPEN.ALWAYS, 

RieAttr, 

NULL); 

if (f==rNVALID_HANDLE_VALUE) 

{ 

// MessageBoxCmyhWnd^THXTC'Cant open f ile"),NULL,MB_OK); 
return 0; 



19 



} 

s.hFiieMap = CrccteFilcMapping(f , NULL, PASE.READWRITE, 0, FileSize, VicwName); 
// for memory-only, use *"CreatcFileMappin3((HANDLE) OxFFFFFFFF, 

if (s_hFileMapj= NULL) 
{ 

// -If (SetLostErrorO " ERROR.ALREADY.EXISTS) MessageBox(myhWnd ^TEXT("MMF Already Exists."), NULL, MB. 

J J File mappinp created successfully. Map a view of the file into the address space, 

IpView = (tControl *)MapVicwOf Fiie(s_hFileMap, FILE_MAP_READ 1 FILE_MAP_WRITE. 0, 0, 0): 

if (IpView != NULL) 

{ 

// View mapped successfully. 

//To unmap the view: (This protects the data from wayward pointers). "UnmapViewOfFile((LPVOID) ipView);*' 
lpView->Si2e - FileSize; // make global 
lpView->Firstebb = sizeof ( tControl ); 

IpLost = (BYTE *)lpView + FileSize - sizeof (t&lob) - sizeof (int); 
if (!jpView->MextAvaiI) lpVicw->Next Avail = sizeof ( tControl ); 
return OK; 

R -else 

|{ 

P ' RaiseException(999 ,0,0,0); 

//MessQ5cBox(myhWnd, _TEX'Tt"Can't map view of file."), NULL, MB_OK); 
return ERR_CANT_MAP_VIBW_OF_i=ILE: 

y 

■else 

1 

li RaiseException(99B,0,0,0); 

; n //Messc9eBox(myhWnd,_TEXT("Can't create file mapping."),NULL, f^B_OK): 
;:i return ERR_CANT_CREAlE_FILE_MAPPINe ;-2; 

i> 

return 0; 

3 

MMFftemapView: Close view and reopen cs different size 

AAJ.J.a>ci»c^ir:frl*c*AaCAAAAAa'iAA»a ^AAAAAA A AAAA AA AAAAAAAAAAJfc» ^r*l»rifr»:fcAAA AA :AXA »» ^»> l *r ) t 

long C£lobCtrl::MMFRemapView( long newsize ) 

{ 

return MMFCrecteQ: // 03/12/98 kBK 

} 

y y^^<riir*a i X A A X A *ii^*:*:*rK*^**:*^^ **.AAAAAAAAAAAAAXAA AAA » *^^z*^*^r*:*r^*r^-^*:*r^'ic^-*,*r*<r*r*r*r^c^*^ 

MMF&etSloblx: Returns index (offset) of Slob if name is found, otherwise 0 

long CSiobCtrl::MMF&etS}obIx(LPCTSTT< SlobName) 

{ 

tSlob*ip&lofa: 
CString name; 
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if (eiobNome 1= NULL) 

name = SbbName; 
else 

name = ""; 

if (name.&etLcngthO == 0) 
return 0; 

for( 

lpeiob=(t&lob *)((int)lpVicw + lpViBW->FirstSiob); 
lpGlob->size && (int)lpGlob<(int)lpLast; 
Ip&lob = (t(5lob*)((int)lp&lob+ipSlob->si2e) 

) 

if (LstrnicmpC (const char *)SlobName, (const char *)((teiob *)lpGlob)->namc, Slob_NAME_LENSTH ) ) 
return (int)lpSlob - (int)ipView; 

} 

return 0; 

>:MMFEraseSlob: Clear the Glob to zeroes, but leaving its space still linked in. 

\i6vd CeiDbCtrl::MMFErase(5lob( tSlob *B ) 

int save_si2e; 
t/CString DebugStr; 

' .if (B) 

I 

n save_si2e = B->si2e; 

, //DebugStr.FormatC'SaveSIze = %[\n"^ave_sl2e); - 
./ /LogErrorStr i ngCDebugStr); 

men^et( (BYTE *)B, 0, save^size); // clear all 

B->si2e = save^size; // restore size for linking post 

} 

} 

MMFFirst&iob: Returns pointer to 1st Slob in the MMF 

teiob *CeiobCtrl::MMFFirsteiobO 

{ 

return (tSlob *)((int)lpView + lpView->Firsteiob); 

} 

MMF^s}extAvailS!ob: Scans from beginning for empty Glob of adequate size. If none, uses NextAvail pointer 

tSlob *C&lobCtrl::MMFNextAvailSlob( lone size ) 

{ 

CString DebugStr; 
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int lastchance=(int)lpVicw m^FileSize - size - 1; 
t&bb *ipeiob; 

//DEBUS 

//Ipeiob = MMFFirsteiobO; 

//DebugStr.Format("RrstSlob5ize: 7ej\n"JpSiob->si2e); 
/ /LogErrorStringCDebugStr); 
y/ENb DEBUS 

for { // chain thru Slobs in MMF 

IpSlobrMMFFirstSbbO; // first Slob... 

ipSlob->si2e &i ((int)lpSiob < lostchance); // if size is nz, within range 
IpSlob = (tSbb*)((int)lpSlob ^ lpSbb->si2e) 

:)( 

//DebugStr.Format("Name: %s size: 7oi\n\ lpSlob->name,lpSbb->si2e); 
y/LogErrorStri ngCDebugStr); 

if (ipSlob->name[0] == '\& && lpSbb->size >= size) // if has zcroed-out name and is big enough... 
return IpSbb; // return pointer to it 

rf/ falls thru bop...no empties found 

y^lpSbb = (tSbb*X{int)lpView + lpView->Next Avail); // else get pointer to next one In MMF 
J-lf ((int)lpSbb > iostchance) // is there room for it? 

; j IpSlob = 0; // no, return 0 

^■^^eturn IpSlob; 

3:;i 

TQOL: MMFSetSbbPtr: Siven the SlobName, find and return pointer to Slob, else zero 
iohg CSlobCtri::MMF&etSlobPtr(LPCTSTR SbbName) 

{ 

"tSlob *ipSbb; 
JrCSivirxQ temp; 



lpSbb=MMFFirstSbbO; 

lpSbb->size &5 ((int)lpSiob < (int)ipLast); 

IpSbb = (tSlob*)((int)ipSlob*lp51ob->si2e) 

.){ 

/* 

if (LineDebug) { 

temp.Format("SbbName: 7oS\nlpSlob = 7oi , IpLost = %i , Size = 7c>i\n",((const char *)((tSiob *)lpSlob) 
->name),lpSbb,lpLcstJpSbb->size); 
LogErrorString(temp); 

} 

*/ 

if (LstrnicmpC SiobName, (const char *){{i&\oh *)lpSlob>>namc, Slob_NAMt_LENeTH )) { 
//Line[>ebug = false; 
return (int)lp£lob;//tPue 32-bit pointer 

} 

} 

//LineDebug = false; 
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return 0: 

3 

void CSlobCtrl::MMFResetGlobsO 
{ 

tSlob *lp&lob; 
int i; 

BYTE* temp; 
long*" MapPtr: 
long datacount; 

for( 

lp&lob=MAAFFirsteiobO; 

ipSlob->si2e && (int)lp&iob<(int)ipLast; 

Ipeiob = (teiob*X(int)lpeiob+lp&iob->si2e) 

D{ 

datacount = ipS!ob->diml * lpSlob->dim2 * lpSlob->eltsr2e; 
temp = (BYTE*)\p&\ob + sizeof (tSlob) + datacount; 
for (i=0;i<lpView->nNotifyMaps;i-w-3 { 
y/ lpeiob->notifymapIi] - 0; 
MapPtr = ClonS*)tcmp ^ i; 
1^ ^ *MapPtr = 0; 

i:; } 

lpSiob->command - 0; 
lpeiob->statLis = 0; 

i?eturn; 

^ I 

voiftceiobCtrlr.MMFCIearSlobBitsOorg index) 

{ .V 

teiob *lpSlob; 

long maplrsdex jaitlndex; 

BYTt* temp; 

long* MapPtrj 

long datacount; 

maplndex = index/32; 
bitlndex = index - maplndex*32; 

for( 

lpeiob=MMFFirstSlobO; 

(Cint)lp&lob <= (int)ipU!St) id ipSiob->si2e; 

ip&lob = (tSlob*)((int)lpeiob+lpSlob->si2e) 

){ 

datacount = lp&lob->diml * lp&lob->dim2 * lpeiob->eltsi2e; 
temp = (ByT5'')lpeiob + sizeof (tSiob) + datacount; 
MapPtr = (bng*)temp + maplndex; 

//lpeiob->notif ymapimaplndex] <5f= (NOTTFyMASK " BitListfbitlndex]); 
*MapPtr &= (NOTTFyMASK " (l«bitlndex)); 
if (NotifyListlsEmptyClp&lob)) lpi5lob->ptrMap = 0; 
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} 

return; 

} 

long CeiobCtrl::MMFCIcareiobBit(tSlob* SPtrJong index) 

{ 

t&lob *ip&lob; 

long maplndex,bitlndex; 

BYTE* temp; 

long* AAapPtr; 

long count; 

long datacount; 

count = 0; 

maplndex = index/32; 
bitlndex = index - maplndex*32; 

for( 

-| 3peiob=MMFFirsteiobO; 

i;, {Ont)lpSlob <- (int)lpLost) &.& lpeiDb->si2c; 

« IpSIob ' (teiob*X(int)IpSbb+lDSIob->si2e) 

datacount = lpeiob->diml * lpSlob->dim2 * lpeiob->eltsi2e; 
% temp = (ByTE*)lp&lob + sizeof (tSiob} + datacount; 

MapPtr = (iong*)temp + maplndex; 
"'■i y/lpeiob->notifymap[maplnd6x3 (S= (NOTrFYMASK " BitList[bitIndexJ); 

if (*MapPtr d (l-c<bitlndex)) { 
count++; 
% if(6?tr= ipeiob){ 

; *MapPtr &- (NOTTFYMASK " (l«bi1Index)); 

count—; 

if (Motif yListlsEmpty(ipSiob)) ip&lob->ptrMap = 0; 

} 

3 

} 

return count; 

} 

BOOL CSIobCtrl::NotifyUstIsEmpty(teiob *lpeiob) 

{ 

BYTE* temp; 
long* MapPtr; 
int i; 

BOOL isEmpty; 
long datacount; 

isEmpty = true; 

datacount = lpSiob->diml * ipebb->dim2 * lpSlob->eltsi2e; 
temp = (BYTt*)lpSlob + sizeof (tSlob) + datacount; 
MapPtr = (long*)temp; 

for (i=0;i<ipView->nNotifyMaps;i++) { 
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if C*CMapPtr+0) JsEmpty = false; 

} 

return isEmpty; 

} 

void-CSIobCtrl::SetBitMap(tSlob* 61obPtr,bng index) 

{ 

long maplndex>itlndex; 
long*" MapPtr; 
BYTE ^temp; 
long datacount; 

maplndex = index/32; 
bitlndex = index - maplndex*32; 

datacount = SlobPtr->diml * &lobPtr->dimZ * eiobPtr->eltsi2e; 

if '(SlobPtr->ptrMap == 0){ 

^^■] SldbPtr->ptrMap = sizeof (tSlob) + datacount; 

1 

^/SiobPtr->natifymap[mapIndex] 1= BitLisT[bitIndex3; 

Ij&mp = (ByTE*)&bbPtr + GlobPtr->ptrMap; 

■A^apPtr = (long*)temp+ maplndex; 

%apPtr 1= (l«bitlndcx); //BitList[bitIndex3; 



iong CSlobCtri::MMFCbseO 

y/TODO: Add your dispatch handler code here 
//reftemp.FormctC'Ref Count- (MMFCbse) f =%i",f ); 
//AfxMessagBBox(reftemp); 
IpVi ew->ftef Count— ; 

RemoveNotify(ebbPtr,SetSafeHwndO); 

UnmapViewOf File((LPV0rD3 IpView); 

ipView=NULL; 

lpLcst=NULL 

CbseHandie(s_hRleMap); 

return CioseHandle(f ); 

3 

bng C&lobCtrl::MMFAdd&lob(LPCT5TO SbbName, long Unltslndex, bng DimZSize, bng DimlSize, bng ElemenrSize bng T 
ype, bng Extra) 

int count,TnisSbb5i2ei.eftOverCount,i; 
bng brtmaploc; 
BYTE* temp; 
//CString DefaugStr; 
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long* MapPtr; 

;^emoveNotify(eiobPtr,5etSafeHwndO); 

if (IbimZSize) // if zero, make = 1 

Dim2Sizc = 1: 
if (IDimlSize) 

DimlSize = 1: 

//DebugStr.Format("Looking for previous Slob: 7oS\n",eiobName); 
//LogErrorString(DebugStr); 

GlobPtr = (tSlob *)MMF&eteiobPtr( SiobName ); // first look for one by this name 

//DebugStr.Format("Prev &lob Ptr: %l\n",elobPtr); 
//LogErrorStri ng(DebugStr); 

if (SlobPtr) // found a previous, maybe cxin reuse space 

MMFErase&lob( SlobPtr); // clear it, maybe Next Avail can reuse it 

, |f ount = DimZSize * DimlSize * ElementSize; // calc data size 

llThisSlobSrze = (sizeof (tSlob) + count + 3) A -3;// add size of Slob and put on even 4-byte boundary 
ibitmapioc = ThisSlobSize: 

I^TnisSlobSize += sizeof(long) * lpView->nNotifyMaps; 

0/DebugStr = "Looking for space for SlobXn"; 
^^/LogErrorString(DebugStr); 

;f iobPtr = MMFNextAvail&job( ThisSlobSize ); // get pointer to area of adequate size 

::|/Debug5tr.FormatC'Found Space at; %i\n",(long)&bbPtr); 
^^i/yLogError5tring(DebugStr); 

while (ISlobPtr) // no room, make bigger 

if CipView->Ref Count > 1) { 

ThrowError(CU.E.PERMISSIONDENIED;'MMF can not be expanded. Too many connectionsAnClose all other appi 
cations and try again. "X* 
return NULL; 

. } 

//DebugStr.FormatC'Resizing for %s\n",SlobName); 
//LogErrorStri ng(DebugStr ); 

//DebugSTr.FormatC'BleSize Before = 7oi\n",m_RleSize); 
//LogErrorStringCDebugStr); 



//LineDebug ' true; 

m.FiieSize ■f= (TnisSlobSize + 4095); // calc new size of file 
m.FileSize d= -4095; // make size a multiple of 4096 

//Debug 
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//Debug5tr.Formct(TileSi2e After = 7oi\n",m_File5i2e); 
//LogError5tring(Debug5tr); 



MMFCreateQ; // unmap/remap view to increase size 

SlobPtr = MMFNextAvailSlob( ThisSlobSize ); // get pointer to areo of adequate size 

/ /Debug « ^ 

//DebugStr.Format("eiobPtr After Remap: 7o\\r\\&\ob?^r): 
//LogErrorStringCDebugStr); 



SetModif iedFlagO; // prooerties have chanoed 

} 

// setup member variables 

datasize = count; 

// setup Slob data variables 

Lef tOverCount = &lobPtr">size - This&lobSize; // subtract this size from size that might have been 
;: lobPtr->size - This&lobSize; 
,:'^lobPtr->dimE = (short)Drm25ize; 

.^SiobPtr->diml = (short)DimlSize; 

i^&lobPtr->eitsize = (short)ElementSize; 

■^$iobPtr->type = (short)Type; 
;^|lobPtr->UOM = Unitslndex; 
[ 'iplobPtr->extra = (short)Extra; 

SlobPtr->command = D; 

■^^iobPtr->status - 0; 

|&iobPtr->ptrMap = 0; //bitmapioc; 

bemp = (BYTE*)SlobPtr + bitmapioc; 
, if or (i=0;i<lpView->nNotifyMaps;i++) { 
;!) //SlobPtr->notifymap[i] = 0; 
.^^ MapPtr = (iong*)temp i; 
*MapPtr = 0; 

} 

SlabPtr->datasi2e= count; 

memsetC SlobPtr->name, 0, Siob_NAME_LENSTH ); // clear name to zeroes 

sfrncpyi (char *)(SlobPtr->name), SiobName, eiob_MAME_LEN5TR ); // copy name in 
if ((int)&iobPtr == ((int)ip\^iew-i- ipView->Ne>ctAvai!)) // if new Slob is ct end of file (not reusing ct 
her area) 

ipView->NextAvail += ThisSlobSize; // incr nextavail pointer 
else // if bytes left over, make new [size] header for empty space left beyond this Slob 
{ 

if (Lef tOverCount > (int)(sizeof (tSiob) + sizeof (long) * ipView->nNotifyMaps)) { 

((tSiob ")((int)eiobPtr + Thist51ob5i2e))->si2e = LeftOverCount; // put c [size] value post this eiob 1 
reclaim space beyond 
} else { 

SlobPtr->size = TnisSlobSize + LeftOverCount; 

} 

} 



//DebugStr = "Slob successfully inserted. \n"; 
//LogErrorString(DebugS+r); 
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SetModificdFbgO; 

return (int)SlobPtr; // returns G\ob pointer 

} 

Ions CSlobCtrhiMMFAddSlobExCLPCTSTR SlobName, LPCTSTR UnitsName, long DimZSize, long DimlSize, long ElementSize, Ic 

ng Type, long Extra) 

{ 

int status ,uom; 
CString Units: 
int count; 
//CString temp; 

count = DimZSize * DimlSize * ElementSize; 
if (UnitsName != NULL) 

Units = UnitsName; 
else 

Units = 

i (Units.fietLengthO 1= 0) { 

;B uom = MMFSet£iobIx( Units ); 

f if Ouom) MMFAddSlob( Units, 0,0,0,0,-1,0); // add unit of measure first 

uom = MMF&et5iobIx( Units ); 
^|^lse{ 

uom = 0; 

T 

''status = MMFAddSlob( SbbName, uom, DimZSize, DimlSize, ElementSize, Type, Extra ); 

l/temp.Format("(7D0 AddSlobEx finished successfully for: 7oS\n"^tatus,GlobName); 
■|^LogError5tring(temp); 

T^^turn status; 

}' 

BOOL CSlobCtrir.&etBrstSlobO 
i 

RemoveNotify(eiobPtr,&etSafeHwndO); 

eiobPtr = (tSlob *X(int)lpView lpView->Firsti5iob); 

// He 980423 SetSlobName((LPCTSTC)&bbPtr->name); 

datasize = 61obPtr->dcitasi2e; // HB 980423 copied from SetSlobName 

m_ebbName = eiobPtr->name; // H& 9804Z3 copied from SetSlobName 

SetModif ledFlagO; // cause properties to re-read 

if (5lobPtr->si2e) 

return true- 
return false; 

} 

BOOL C&lobCtri::£etNextSlobO 
{ 

RemoveNotify(SlobPtr,&etSafeHwndO); 

eiobPtr = (tSlob *)C(int)eiobPtr + e!obPtr->si2e); 

// He 9804Z3 SeteiobName((LPCTSTR)&lobPtr->name); 
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datasizc = elobPtr->datasi2e; // HS 9B0423 copied from SetGlobName 
m_eiobName = SlobPtr->name; // H& 9B0423 copied from SetSlobName 
SetModif iedFbgO; // cause properties to re-read 
if (SlobPtr->£]2e) 

return true; 
return false; 

3 

« 

void C&!obCtrl::EraseO 
{ 

CSingleLock LockMe(MMFLock); 
LockMeLockO; 

RemoveNotify(SlobPtr^tSafcHwndO); 
MMFEraseebb( eiobPtr 
LockMe.UnbckO; 

} 

voa CeiobCtrl-.MMFEraseO 
ifeingleLock LockMe(MMFLock); 

'|^ckMe.LockO; 
;ff (IpView) 

int5ize; 
int nmaps; 

;:|| RemoveNotrfy(&lobPtr,&et5afeHwndO); 

size = lpView->St2e; 
U nmaps = lpView->nNotif yMaps; 

memset( IpView, 0, size ); 

lpView->nNotifyMaps = nmaps; 

lpView->Ne>ctAvail = lpView->rirsteiob = sizeof ( tContro! ) + 32*sizeofClong)*nmaps; 
lpView->Si2e - size; 

} 

LockA/ve.UnlockO; 

} 

long CSlobCtrf::SetNotifyUst(iong index) 

{ 

BYTE* temp; 
long* MapPtr; 

if ClpView){ 

if(Cindex< 0) 1 1 (index >= ipWew->nNotifyMaps)) return Q; 
// TOOO: Add your property handler here 
if (eiobPtr && eiobPtr->ptrMap){ 

temp = (ByTE*)&lobPtr + eiobPtr->ptrMap; 

MapPtr = (long*)temp + index; 
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return *MapPtr; 

3 

3 



return 0; 

3 

void ceiobCtrl::SetNotifyList(long index, long nblewValue) 

i 

// TODO: Add your property handler here 

SetModifiedFlagO; 

3 

BOOL Ci51obCtrl::AddNotify(teiofa* eiobPtr,HWND my_hWnd) 

{ 

jnt index; 

J/ add my hWnd to, notify list 
;f(SlobPtrO{ 

index -FindHandic(myJiWncI); ' 7/ look for a previous entry 
7 if (index i= -1) T // if we find one, dont add another! 

■5. SetBitMapC&lobPtrJndex); // RK 042498 

: return true; 

'^h } 

// didnt find one so make one 

index = RndHandle(0); // look for first 0 entry 

p if (index != -1) { // make sure there is one available 

' ^ ipView->Notif yHandie[index] = m>L.hWnd; 
'il m_;Notify = true; 

..CString Temp; 

Temp.format("index:: %d Power(index) = %d",index/ower (index)); 
AfxMessaQeBox(Temp); 

5etBitMap(&lobPtr,index); // add ref to notify list 

return true; 

3 

3 

■nirowError(CU_E_OL;TOFMEMORy;'Out of memory in MMF. Can not register Slob for notification."); 
return false; 

3. 

BOOL C(5lobCtri::RemoveNotify(tebb* SlobPtr, HWND my_hWnd) 
int index; 

// remove my hwnd from the notify list 
if (SlobPtr) { 

m„Notify = false; // HG 980423 clear notify flag in any case 

index = FindHandle(my_hWnd); // look for handle in list 
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if (index == -1) // not thcrel 

return true; // dont need to remove anything 



lpView->NotifyHandie[index3 = 0; // rcntove entry from list 
MMFCiearSlobBits(index); 

/ySiobPtr->notify d= (NOTCFyMASK " BitUstpndex]); J/ remove ref from notify map 
return true; 

} 

return false; 

} 

BOOL C&lobCtrt::RemoveNotifyX(t&lob* SPtr, HWND my.hWnd) 

{ 

int index; 
long count; 

// remove my hwnd from the notify list 
if(&!obPtr){ 

index = FindHandle(my_hWnd); J J look for handle in list 
If (index //not there! 

return true; fj dont need to remove anything 

t count = MMFClear&iobBit(SPtr,index); 

if (count "0){ 
^ti ipView->NotifyHandleIindex] = 0; 
m_Notif y r f aise; 

''t return true; 

% 

ri^turn false; 

3 

int CSiobCtrl::FindHandie(HWND my_hWnd) 
int i; 

for (i=0;i<m_MGxLinks;i++) 

if (lpVtew->Notif yHandle[i] == my_hWnd) return i; 

return -1; 

} 

long C&iobCtri:;&etNotifyHandle(short index) 

{ 

// TODO: Add your property handler here 
if ((ipView) && (index < m„MaxUnks) M (index >= 0)) 
return (bng)lpView->NotifyHandle[index3; 

return -1; 

} 

void ceiobCtrl::SetNotifyHandle(short index, long nNewValue) 
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{ 

// TODO: Add your property handler here 
SetModifiedFlagC); 

} 

long Powcrfint operand) 

{ 

int i; 

long value; 

if (operand 0) { 

value ' 1; 
}else{ 

value = 1; 

for(i=l;i<=operand;i-H-) 
value *=2; 

3 

return value; 

C&lobCtrl::5endNotify(t&lob* SlobPtr. tContro!* IpView^hort IDProp^hort PropValue) 

^!-// TODO; Add your dispatch handler code here 
iSnt i,maplndex,bitlndex; 
''mf results; 
+(WND mHwnd; 
jSlobMsg msg; 
;;fong* tempn^; 
ippng GloblD; 
■mt count; 
■^^ng map; 

count = 0; 

// set up message to send for notify 

msgPropID = IDProp; 

msg.Valuer PropValue; 

tempmsg - (ionc*)(imsg; 

SlobID = Gong)SlobPtr - (long)lpView; 

mHwnd = &et5afeHwndO; 

if (m_AutoNotify) { 

if (GiobPtr &6l SlobPtr->ptrMap) { 

for CmapIndex=0;mapIndex<lpView->nNotifyMap£;mapIndex-H^) { 
map r SetNotif yList(mapIndex); 
if (map != 0) count-w-; 

for (bitlndex = 0;bitlndex<32;bitlndex+^) { 
i = maplndex*32+bitlndex; 

if ((map & (l«bitlndex)) ii (mHwnd b lpView->NDtifyHandte[i])) { 

results = ::PostMessage(ipView->NotifyHandle[i3^'5ER_VALUECHANSED*tempmsg,ei^ 
if (iresults) //if the handle is invalid then remove it from the list 
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ftemoveNotify(eiobPtr,lpVicw->NotifyHandle[i]); 

} 

} 

} 

if (count == 0) &lobPtr->ptrMap = 0; 

} 

} 

} 

void CGlobCtrl-OnFinalReleaseO 
{ 

// TODO: Add your specialized code here and/or call the base class 

RemoveNotify(SiobPtr>eetSafcHwndO); 

COleControt::OnFinalReleaseO; 

] 

long ceiobCtrl::OnValueChan9ed(UINT IParam^ON& rParam) 

■{ 

..//unpack IParam for PropID and Value 
i^idbMsg* m^; 

Igsg r (tebbMsg*)&lParam; 

iFjreChanp£(ms5->ProprD,msg->Value,rParam); 
:;l'kturn 0; 

short cebbCtrl::&etByteValueO 

{% 

%i TODD: Add your property handler here 

't( returns a byte (short was the only option in the wizard ;) 

;if (&lobPtr) 

return SiobPtr->data.Byte[03; 
return 0; 

} 

void CeiobCtrl::SetByteValue(short nNewValue) 

{ 

// TODO: Add your property handler here 
if ((GlobPtr) (Std !CipView->ReadOniy)) { 
eiobPtr->data.Byte[03 = (ByTt)nNewValue; 

// notify controls on list of change 
//if (SiobPtr->notify !=0) 
SendNotify(eiobPtr,lpViewJDVALUE,0); 

} 

SetModifiedFlagO- 



short CeiobCtrl::SetAbValue(lon5 index) 

{ 

// TODO: Add your property handler here 



33 



if ((SlobPtr) && (index < G[obPtr->datQsi2e)) 

return &lobPtr->dcta.Byte[index3; 
return 0; 

} 

void CSlobCtrl::SetAbValuc(long index, short nh4ewValue) 

{ 

// TODO: Add your property handier here • • 
if (!(lpView->ReadOn!y)) 

if ((SlobPtr) && (index < SlobPtr->datasize)) { 
eiobPtr->datQ.Byte[index3 = (ByTE)nNewValue; 

// notify controls on list of change 
//if (&iobPtr->notify i=0) 
SendNDtify(&lobPtrjpViewJDVALUE.O); 

} 

y/SetModif iedFlagO; -kK not needed for non persistent properties 

} 

Ions CeiobCtrl::&etLVaiue() 

|V TODO: Add your property handler here 
Af (GlobPtr) 

;ll return SlobPtr->data.Long[0]; 

iifeturn 0; 

} ■•^1 

void CSIobCtrl::5etLVaiue(long nNewVaiue) 

{ ;5;; 

,P TODO: Add your property handler here 
if ((eiobPtr} && !(ipView->ReadOnly)) { 
i2 if (&iobPtr->eltsi2e == 4) 

SiobPtr->data.Long[0] =^ nNewValue; 

// notify controls on list of change 
//if (&iobPtr->nDtify 1=0) 
5endMotify(SiobPtrjpViewJDVALUE,0); 

} 

//SetModif IedFlagO: 

} 

long C&lobCtrl::&etAlValue(iong index) 

{ 

// TODO: Add your property handler here 

if ((SiobPtr) ((index * sizeof (long)) < eiobPtr">datcsi2e)) 

return SbbPtr->dcta.Long[index3; 
return 0; 



void CelobCtri::SetA!Value(iong index, long nNiewValue) 

{ 

// TODO: Add your property handler here 
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if (IClpView->ReadOnly)) 

if ((SiobPtr) St& ((index* sizcof (br^)) < SbWlT->dcrtasize)) { 
&bbPtr->data.Long[index3 = nNewValue; 

// notify controls on list of change 
//if (eiobPtr->notify J=0) 

SendNotify(<5bbPtr;ipViewJDVAUJE,0); 

} 

//SetModifiedFbgO; 

} 

short C&bbCtrl::ectlValueO 
{ 

// 1 ODO: Add your property handler here 
if {GlobPtr} 

return SbbPtr->datQ.Short[D3; 
return 0; 

} 

vfflci Ce!obCtri::SetIVaiue(short nNewValue) 

l^'/- 1 ODO: Add your property handler here 
hif ((SiobPtr) && !(ipView->ReadOnly)) { 
m if (eiobPtr->eltsi2e >= 2) 
^1"= eiobPtr->data.Short[OJ = nNewValue; 

// notify controls on list of change 
.//if (ebbPtr->notify !=0) 
SendNotify(SiobPtr ,lpView JDVALUE,0); 

!3 

?i/SetModifiedFlagO; 

};:; 

short C(5lobCtri::SetAiValue(bng index) 

{ 

.// TODO: Add your -property handler here 

if ((SlobPtr) ({index ^ sizcof (short)) < G\ob?tr->daiasize)) 

return £bbPtr->dGta.Short[index3; 
return 0; 

} 

void CSiobCtrl::SetAi Vaiije(long index, short nNewValue) 

{ 

// TODO: Add your property handler here 
if G(ipView->ReadOniy)) 

if ((eiobPtr) && ((index * sizeof (short)) < &lobPtr->datasr2e)) { 
SlobPtr->data.5hort[index] = nNewVaiue; 

// notify controls on tist of change 
//if (SlobPtr->notify 1=0) 
SendNotrfy(SiobPtr,lpViewJDVALU£,0); 

} 
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//SetModificdFiagO; 

} 

long CGlobClTl::eetValueSDCion9 n) 

{ 

// TODO: Add your property handler here 

if (SbbPtr) 
{ 

if ((n * SlobPtr->eltsi2e ) < GlobPtr->datasi2e) 

{ 

switch (eiobPtr->e!tsi2e) 
{ 

case 4: return SlobPtr->data.Long[n3; 
case 2: return SlobPtr->data.Short[n3; 
default: return SlobPtr->data.Byte[n3; 
} 

} 

} 

f«turn -1; 

^1 

vogjl ceiobCtri::SetValueSDCIong n, long nNewValue) 

{ ;^ 

^ TODO: Add your property handler here 
:{f (!ClpView->ReadOnly)) 

?^ 

. if(eiobPtr) 

%\ 

r; if ((n * filobPtr->e1tsi2e ) < GlobPtr->datasi2e) 
switch (SlobPtr->eltsi2e) 

{ 

cose 4: &lobPtr->data.Long[n3 = nNcwValue; 
break 

case 2: (5iofaPtr->data.ShortIn3= (short)nNewValue; 
break; 

default: (5lobPtr->data.Byte[n] = (BYTE) nNewValue; 
break 

} 

// notify controls on list of change 
7/if (SlobPtr->notif y !=0) 

SendNotify(&lobPtr,lpViewJDVALUE,0); 

} 

} 

} 

//SetModifiedFiagO; 

) 

E57R CeiobCtrl::eetStrVaiueO 
{ 

CString strResult; 
if (SlobPtr) 



36 



strResutt = (&lobPtr->data.Bytc); 
Jl TODO: Add your property handler here 



return strftesult.AllocSysStringO; 

} 

void CSlobCtrl::5etStrVa!ue(LPCTS'm ipszNcwValue) 
{ 

// TODO: Add your property handier here 
y/CStrirtgstrResultOpszNewValue); 
int i; 
int size; 

if (!(lpView->ReQdOnly) Ad (eiobPtr)) { 
size = strlen(ipszNewValue); 
for(j=O;0< size) Ad 0 ^ (SlobPtr->datasize-l));i++3 { 
&lobPtr->data.Byte[i] = ipszNewValue[i3; 

} 

i5lobPtr->data.Byte[i3= '\0^ 

1 1 notify controls on list of change 
g //if (SiobPtr->notify }=0) 
: SendNotify(eiobPtr jpView JD VALUE,0); 

;| 

y/SetModifiedFlasO; 
vbfi C&iobCtri::InsertClDn5 value, long index) 

{ 

2J TODO: Add your dispatch handier code here 
LPBYTE source; 
LPBYTE dest; 
LONie size; 
long dotacount; 

// exit if index is beyond range or Slob isnt setup 
if (!&lobPtr) return; 

dotacount = SlobPtr->diml * GiobPtr->dim2 * 6iobPtr->eltsize; 
if (((index''&iobPtr->eltsize) >= datacount) |j (index < 0)) 
return; 

if ((SiobPtr) &4 !CipView->ReadOniy)) { 

source = SiobPtr->data.Byte + index*SlobPtr->eitsize; 

dest r source £iobPtr->eltsize; 

size = datacount - (index-*-l)*&lobPtr->eltsize; 

//move date up (memmove handles overlapping memory regions) 
memmove(dest ^ource^ize); 

//insert new date element 
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switch (&lobPtr->eltsi2e) 

{ 

case 4: &lobPtr->data.Long[index] = value; 
break; 

cose 2: &lobPtr->datQ.Short[index]= (short)value; 
break; 

default: GlobPtr->data.Byte[index] = (BYTE) value; 
break; 

} 

// notify controls on list of change 
//if {&lobPtr->notify 1=0) 

SendMotify(51obPtrJpView;rbVALUE,0); 

} 



BSTR CSlobCtrl::&etFullPathO ^ 

{ 

CString strResult; 

1/ TOOO: Add your property handler here 

ItrResult = nuFuilPath; 

feturn ^trResult.AliocSysStringO' 

) ;P 

vdfi C&lobCtrl::SetFulIPath(LPCTS'm IpszNewValue) 
// TODO: Add your property handler here 
letModlfiedFlagO; 

lor§ CGlobCtri::Resi2eMMF(lonQ NewSize) 

■{ >i 

I J TODO: Add your dispatch handler code here 
return MMi^emapView(NewSi2e); 

3 

long CSiobCtri::SyncFiie5i2eO 

r 
1. 

(m_File5ize != lpView->5r2e) { 

// rm^vi^ynB are not syncronized so remap 

MMFRemapView(ipVicw->Si2e); 

} 

return 0; 

} 

void LogErrorStringCCString errstr) 
{ 

if (!L06_ERR0RS) return; 
FILE *f ; 

f = fopenf"C:\\i?lobErr.Log"/'o"); 
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fwrite(crrstr,l,errstr.&etLengthO,f); 
fclose(f); 

} 



void CSlobCtrl::5endNotifyX(short NotifylD ^ 0, short Value = 0) 

{ 

// TODO: Add your dispatch handler code here 

int LmapIndcxjDitlndex; 
int results; 
HWND mHwnd; 
tSlobMsg msg: 
long* tempmsg; 
long eioblD; 

// set up message to send for notify 

msg.PropID = NotifylD; 

nisg.Value= Value; 

tfempmsg = (long*)<5£msg; 

'globlD = (jong)&lobPtr - (bng)ipView; 

;mHwnd - SetSaf eHwndQ; 
l(&lobPtr) { 

, " for (mapIndex=0;mapIndex<lpView->nNotifyMaps;mapIndex++){ 
::;^| for (bitlndex = O;brtlndex<32;bitIndeX'H0 { 
, i = mapIndex*3Z+bitInde>c 

m if ((&etNotifyUst(mapIndex) & (l«bitlndex)) && (mHwnd != lpVicw->NotifyHandie[t])) { 
\h results - ::PostMessageCipView->NotifyHandle[O^SER.VALUECHAN&ED *tcmpmsg,^ 

■ '3 if (iresuits) // if the handle is invalid then remove it from the list 

RemoveNotify{&bbPtrJpView->NotifyHandlel!]); 

} 

3 

} 

} 

} 

BOOL CSIobCtrl::&etAuto5endNotifyO 

{ 

// TObO: Add your property handier here 
return m_AutoNotify; 

} 

void C&tobCtrl::5etAutc5endNotrfy(BOOL bNewValue) 

{ 

// TODO: Add your property handler here 
m^AutoNotify = bNewVaiue; 

SetModiftedFiagO; 

} 
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BOOL CSlobCtpi-.OnSetcxtentCU^SIZEL ipSizcL) 
{ 

// TODO: Add your specialized code here and/or cali the base c\ass 
return false; //COleControl::OnSetExtent(lpSi2eL); 

} 



Ions ceiobCtrl::&etNHandlesO 

{ 

// TODO: Add your property handler here 
return ni_MaxLinks; 

} 

void ceiobCtrl-.tSetNHandlesCiong nNewValue) 
{ 

; TODO: Add your property handler here 

letModifiedFlcgO; 

}^ 

iprt| CSlobCtrl::eetNNotifyMapsO 

:{ 

// TODO: Add your property handler here 
, (IpView) 

1^ return lpView->nNotifyMaps; 

::mturn 0; 

} Q 

void CeiobCtrl::SetNNotifyMaps(lons nNewVaiue) 

{ 

// TODO: Add your property handler here 
SetModifiedFla^O; 

BOOL CSlobCtrl::FormatMMFOong NotifyUmit) 
{ 

// TODO: Add your dispatch handler code here 
int K 

if (IpView) { 

if (lpView->Ref Count > 1) { 

Tnrow£rror(CTL_E_PERMISSrONDENn:ED/'Sharing violation. Can not reformat MMF."); 
return false; 

} 
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if (NotifyLimit < 32) NotifyLimit r 32; 
X = {NDt!fyUmit-l)/32 1; 
lpVicw->nNotifyMaps = x; 
m_MaxUnks = x*32; 

m_FileSi2e += (m^MoxLinks^sizeof (long) + 4095); J I calc new size of file 
rruFileSize -4095; // make size q multiple of 4096 

MMFEroscQ; 

if (MA/lFCreateO == OK) return TRUE; 

} 

return FALSE; 

} 

long CelobCtrl::&etSlobSizeO 

{ 

J J TODO: Add your property handler here 
. if (SlobPtr) return SlobPtr->si2e; 

i iScturn sizeof (t&lob); 

}|: 

vD)d C&iobCtri::Set&lobSi2cClong nNewValue) 
V/ TODO: Add your property handler here 
'jletModifiedFlagO; 

long CSlobCtrl::£etRef CountO 

// TODO: Add your property handier here 
if (ipView) return lpView->Ref Count; 

return 0; 

} 

void CSIobCtri::SetRef CountClono nNewValue) 

{ 

// TODO: Add your property handler here 
SetModifiedFlagO' 

} 

BSTR CGlobCtrl::&etVersionO 

{ 

^String strResult; 

// TODO: Add your property handler here 

strResult r VERSION; 

return strResult^AlbcSysStringQ; 

} 
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void CGIobCtrl::SetVersion(LPCTSTR IpszNJewVaiue) 
{ 

// TObO: Add your property handler here 
SetModifiedFbgO; 

BSTR C&lobCtrl::&etUOM0 
{ 

CString strResult; 

// TODO: Add your property handier here 
teiob* temp; 

if ((eiobPtr) && (ebbPtr->UOM) && ipViewX 
temp = (t&lob*)((int)ipView + GlobPtr->UOM); 
strResult = temp->name: 

}else{ 

:l strRcsult = 

;5 

i^eturn strResult.AlbcSysStringQ; 

}% 

voM C51obCtri::5etUOM(LPCTSTR ipszNewVdue) 

{ ;^ 

'4/ TODO: Add your property handler here 
?nt uom; 

i:||om ' MMF&etSloblxOpszNewValue); 
:1f (GlobPtr) &lobPtr->UOM ' uom; 
■ SetModif iedFbgO; 

} 

BSTR CGIobCtrl::&etLinkO 

{ 

CString strResult; 

// TODO: Add your property handler here 
t&lob* temp; 

rf ((SlobPtr) && (SlobPtr->link) && ipViewX 
temp = (teiob*)((int)lpView + SlobPtr->Iink); 
strResutt = temp->name; 

} else { 
strResult = 

} 

return strResuitAllocSysStringQ; 

} 



void CeiobCtrl::5etLink(LPCTSTR ipszNewVclue) 



{ 

// TODO: Add your property handler here 
int link; 

est ring newvai; 

if (IpszNewValue != NULL) 

newvai = ipszNewValue; 
else 

newva! = 

link = MMF5et&lobIx(newval); 
rf (eiobPtr) SlobPtr->link = link; 
SetModifiedFlagO; 

} 

lone C&lobCtr!::IndexOf CLPCT5TR SlobName) 
{ 

// TODO: Add your dispatch handler code here 
bng index: 

^mdex= MMF&etSlobIx(SlobName); 
# (Hndex) index = -1; 
return index ; 

■} ;5; 

BCi&L C&lobCtrl::eetNotifyOnChan9e(LPCT5TR SlobName) 

|7 TODO: Add your property handler here 

Islob* SPtr; 

iflWND hWind; 

hng index; 

long maplndex; 

long bitlndex: 

BOOL ret; 

BYTE*' temp; 

long* MapPtr; 

hWind - &etSafeHwndO; 
ret = false; 

if (iipView) return false; 

if (SlobName[0] == '\0'){ 

SPtr = SbbPtr; 
} else { 

■ SPtr = (teiob*)MMF&etSiobPtr(SlobName); 

} 

if (SPtr && &Ptr->ptrMap) { 
index = RndHandle(hWind); 
if (index != -1) { 

maplndex = index/32; 
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bitlndcx = index - maplndcx*32; 
temp - (ByTc*)SPtr ^ eF>tr->ptrMap; 
MapPtr = (long*')tcmp + maplndex; 
if ("MapPtr & (l«bitlndex)) ret = true; 

} 

} 

return ret: 

) 

void CeiobCtri::SetNotifyOnChange(LPCTS"ni eiobName. BOOL bNewValue) 

{ 

// TODO: Add your property handler here 

BOOL ret; 
HWND hWind; 
tGlob* SPtr; 

if (SlobName[0]~ -\0'M 
sii SPtr = eiobPtr; 
J else { 

f= ePtr= (teiob*)MMFeetGlobPtr(eiobName); 

% 

:lf{GPtr){ 

CSingleLock LockMe(SlobLock); 

if(!AmbientUserModeO){ 
; I "nirowError(CTL_E_PERMISSIONDENIED;'This property can only be set at runtime." ,0); 
f: return; 

s ^ 

LockMe.LockO; // waits infinitely for resource to be available. 

// can use a timeout value as a parameter (ms) if desired. 

hWind = SetSaf eHwndC); 

if (bNewValue) { 

ret = AddNotify(SPtrjiWind); 
} else { 

ret = RemoveNotifyX(SPtr,hWind); 

} 

LockMe.UnlockO; 

} 

SetModifiedFlogO; 

} 



long CSlobCtrl::SetVisibleO 
{ 
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HRESULThresutt; 

IDispatch FAR* pdisp = (IDispatch FAR*)NULL; 
DISRID dispid; 

OLECHAR FAR* szVisibIc = L"Visibic"; 
OLECHAR FAR* szTabStop = L'TabStop"; 
DISPPARAMS disparams; 
DISPID MyDispid = DISPID.PROPERTYPUT; 
VARIANTARS myargll]; 

d\sparams.rgvarg - myarg; 
dispapamfi.rgvarg[0].vt = VT_$>00\s, 

dispapams.rgvarg[0].boolVal = FALSE; //MFC help says this fieldname is actualy "bool"... yea right! 
dispapams.rgdispidNamedArgs = AMyDispid; 
dispapamsxArgs = 1; 
disparamsxNIamed Args = 1; 

pdisp = SetExtcndedContpolQ; 

:iiresult r DISP_E_UNKNOWNINTERFACE: 

;£ff (pdisp) { 

IB //set visible to false 

1= hresult = pdisp->eetIDsOf Namcs(nD_NUU,,&szVisible;lJ,OCALE_USER_DEFAULT,&dispid); 
if (hresult ==S_OK){ 

hresult = pdisp->Invoke(dispid JID_NULLJ-OCALE_USER_DEFAULT,DISPATCH_PROPERTypL;T, 
Adisparams,NULL,NJULL,NULL'); 

P- //set TabStop to false 

1= hresult = pd!Sp->eetIDsOf Names(IID_NULL,&szTabStopAj-OCALE_USER_DEFAULT,&dispid); 
. |i if (hresult == S_OK){ 

i.n hresult = pdisp->Invoke(dispidXi:D_NULLJ-OCALE_USER_DEFAULT,DISPATCH_PROPERTyPUT, 
<Sidisparams>IUa,NULL,NULiO; 

U } 

pdisp->Release(); 

3 

return (lorig)hresult; 

} 
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// Copyright 1999 5PX Corporation 

#if !ciefined(AFX_5LOB_H_5F20D2DC_788C_liDl_9A9B_020701045A6B_INCLUDEDJ 
#define AFX_GLOB_H 5F20D2DC_788C_11D1_9A9B_020701045A6B ^INCLUDED. 

#if _fASC_VEk >= 1000 
#prQgmQ once 

#endif // _MSC_VER >= 1000 

* • 

// Slob.h : main header file for ©LOB.DLL 

#if idefined(_AFXCU.H_) 

#error include 'afxctlW before including this file 
#endif 

#include "resource.h" // n^ain symbols 

////////////////////////////////////////////////////////////////////////////^ 
11 C&lobApp : See Slob.cpp for implementation. 

#El^fine eiob_NAME„LENeTH 16 

#dfefine DEF.NOTTFYMAPS 8 

#|eflne NOTTFYMASK -1 

#define OK 0 

#|kfine ERR_CANT_.CREATE_FILE_MAPPrN& -2 

#dlfine ERR_CANT_MAP_VTEW_OF_FILE -1 

#a^fine ER;5JNVALID_Slob_REFERENCE -3 

#ciffine ERR.INVALIDFILENAME 999 

#|^fine MEM.ALLOC 4096 

#iffine iMAX_5T1^Ni£ 256 

#(|efine MMF_IN!TERCOM_MMF _TEXTC'MMF_INTEftCOM") 

// FLAS VALUES TO USE IN MMFSETeiobPARAM AND MMFSETSlobPARAM 
// USE ACTUAL^YTE OFFSETS FOR FASTER ACCESS 

#define Slob_DrM2 4 

#define Slob_DIMl 6 

#define eiob^ELTSIZE B 

#define fiiob^TYPE 10 

#def ine Siofa_PARAM 12 // addl data 

#def ine Slob^DATASIZE 14 // addl 

typedef struct 

{ 

long Size; 
int FirstSbb; 
int Next A vail; 

int Readonly; // is MMF Readonly right now? 

int RefCount; 

int nNotifyMaps; 

int Data[ 10 j; // spare 

HWND Notif yHandie[Oj; // hwnd for windows to notify of changes 
} tControl; 
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typedef struct 

{ 

int size; 

BYTE name[ Slob^NAME^LENSTH ]; 

short dim2; // 2nd dimension 

short diml; // 1st dimension 

short eltsize; // byte size of each array element 

short type; // type of array element 

short extra; // addl data. Waveforms use for Actual Length, etc. 

short command; // command to the device 

short status; // status from the device 

short datasize; // addl 

long UOM; // unit of measure link, if any 

long link; // offset of parameter Slob, if any 

//long notif ymap[DEF_N0TIFyMAPS3; // bitmap used to indicate who to notify if changed 

long ptrMap; 

union 

{ 

long LonglO]: 
short Short[0]; 
BYTE Byte[0]; 
,^3 date; 
}teiob; 

tyfledef struct 

{ 4 

short PropID; 
isihort Value; 
} ifeiobMsg; 

clpfs ceiobApp : public COleControlModuie 

{ '[1 
public: 

BOOL InitlnstanceQ; 
int ExitlnstanceQ; 

}; 

extern const GUIb CbECl _tlid; 
extern consi WORD _wVerMajor; 
extern const WORD _wVerMinor; 

//{{AFX_INSERT_L0CA1T0N}} 

// Microsoft Developer Studio will insert additional declarations immediately before the previous line. 
#Endif // !defined(AFX„SLOB„H_5F20D2DC_78S(:_llDl_9A9B_0Z0701D45A6B_rNi:LUDED) 
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// Copyright 199B, 1999 SPX Corporation 

/ / SlobPpg.cpp : Implementation of the CSiobPropPage property page doss. 

#include "stdafx.h" 
#include "&lofa.h" 
#include "eiobPpg.h" 

#ifdef_DEBUe 

#def ine new DEBUi5'_NEW 

#undef THIS_FrLE 

stotic char THIS_FILED = FILE__; 

#endif 



IMPLEMENT_DyNaiEATt(CeiobPropPage, COlePropcrtyPage) 



///////////////////////////////////////////////////////////////////////////// 
y/ fkessagc map 

""'hi- 

BEfi:NLMESSAeE_MAP(C&lobPrDpPage, COiePropertyPage) 
|7{{AFX_M5&_MAP(C&iobPropPage) 

/•/ NOTE - ClassWrzard will add end remove message map entries 

DO NOT EDIT what you see in these blocks of generated code ! 
^^i^}AFX_MS&_MAP 
ENiLMESSASE^MAPO 



//^////////////////////////////////////////W^ 
// Jfiitialize class factory and guid 

IMtlEM"ENT_OLECREA7t_EX(C&lobPropPage, "SLOB.GiobPropPage.l", 
0x5f 20dZd7, 0x78Bc, Oxlldl, Ox9a, Ox9b, 0x2, 0x7, 0x1, 0x4, 0x5a' Ox6b) 

/f//fi////nii//innf//f///j//in/nnn/i/innnn//n/n//{//ii///,//fit! 

// ceiobPropPage::C&lobPropPageFactory::UpdcteRegistry - 
// Adds or removes s>'STem registry entries for CSbbPropPage 

BOOL C&lobPropPage::CSiobPropPageFactory::UpdateRegistry(BOOL bRegister) 
if (bRegister) 

return AfxOieRegtsterPropertyPageClass(AfxSetInstanceHandleO, 
m.cisid, TbSJ=LO^J'?&): 

else 

return Afx01eUnreg]sterCiass(m_c!sid, NULL); 

} 



///////////////////////////////////////////////////////////////////////////// 
// CSIobPropPage::CeiobPropPage - Constructor 

1 



CeiobPropPage-.CeiobPropPngeO : 

COlcPropertyPa9c(IDD.IDS_SLOB_PP6_CAP"nON) 

{ 

//{{AFX_DATA_INIT(CSlobPropPage) 

// NOTE: ClassWizard will odd member initialization here 

// DO NOT EDIT what you see in these blocks of generated code 1 

//}}AFX_DATA_INIT 

} 



////////////////////////////////////////////////////////////////////////////y 
// CSIobPropPagei'.DoDataExchange - Moves data between page and properties 

void CeiobPropPage::DoDataExchange(CDataExchange* pDX) 
{ 

//{{AFX_DATA_MAP(CSbbPropPage) 

// NOTE: ClassWizard will add DDP. DDX, and DDV calls >>ere 

// DO NOT EDIT what you see in these blocks of generated code ! 

//3}AFX_DATA_MAP 

feDP_PostProcessing(pDX); 



//y////////y//////////////y////////////////////////////////////////////////y 

//SslobPropPage message handlers 
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// Copyright 1998, 1999 SPX Corporation 

#if !defined(AFX_SLOBCTL_H_5F20D2c4_788C_llDl_9A9B_020701045A6B_INCLUDEDJ 
#define AFX_SLOBCTL_H ^5F20C>2E4_78BC_11!M_9A9B_020701045A6B ^INCLUDED. 

#if _MSC_VER >= 1000 
^pragma once 

#endif //_MSC_VER>= 1000 

// &lobCtl.h : Declaration of the CSlobCtrl ActiveX Control class. 

///////////////////////////////////////////////////////////////////////////// 
// C&lobCtrl : See SlobCtl.cpp for implementation. 
#include <afxmt.h> 
#include <memory.h> 
#include <strin3.h> 

#defineIDVALUEl 
#def ine IDSTATUS 2 
-#dpfineIDC0MMAND3 
#;|?f ine VERSION "1.21" 

cl#s CeiobCtrl : public COleControl 

;fECLARB„DyNCREATE(C&lobCtr[) 
//'Constructor 

^l^eiobCtrlO; 
// iJpvcrrides 

iW CiassWizard generated virtual function overrides 
ii/{{AFX„VIRTJAL(CetobCtr!) 
public: 

virtual void OnDraw(CDC* pdc, const CRectd rcBounds, const Ckeci& rclnvalid); 

virtual void DoPropExchangeCCPropExchange* pPX); 

virtual void OnResetStateQ: 

virtual void OnFinalReleaseO; 

virtual BOOL OnSetExrentCLPSIZEL ipSizeL); 

//}}AFX_VIRTUAL 

// Implementation 
protected: 
-ceiobCtrlQ: 

BESrN_OLEFACTORy(CSlobCtrD 

virtual BOOL VerifyUserLicenseQ; 

virtual BOOL &etLicenseKey(DWORD,BSTR FAR*); 
END„OLEFACTORy(CSiobCtrD 

DECLARE^OLETYPELIBCCSiobCtrl) // SetTypelnf o 
DECLARE_PROPPA&ElDS(C&iobCtr[) // Property page IDs 
DECLARE.OLECUTyPECC&iobCtrf) // Type name and misc status 
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// Message maps 

//{{AFX_MSGCC&lobCtrI) 
//}}AFX_MS(5 

DECMRB.MESSA&E.MAPO 

// Dispatch maps 

//{{AFX_DISPATCH(C&lobCtr!) 
afx_msg iong &etSlobIndex(); 
ofx^nxsg void SctSlobIndex(bng nNewValue); 
afx_msg long SetDimlSizeQ; 
afx_msg void SctbimlSi2e(long nNcwValue); 
afx_msg long fictbimZSizcQ; 
cfx_msg void SetDimZSizeCbng nNlewValue); 
afx^msg long SetElementSizcQ; 
afx^msg void SetElemcntSizeClong nNewValuc); 
afx_msg long SetTypcQ; 
afx_msg void SetType(long nNewValue); 
,.Qfx_msg iong SetExtraQ; 
,||f^_msg void SetExtraClong nNewValue); 
!;ffx_msg long SetDctaSizeO; 
ipfx_n\sg void 5etDatcSize(long nNewValue); 
;iafx_msg BSTR SeteiobNameQ; 
'ifx_msg void SeteiobName(LPCTSTR ipszNew Value); 
^tifx_msg long SetFiieSizeQ; 
Sfx_msg void 5etFileSize(long nNewValue); 
;fefx_msg BSTR SetFileNameQ; 
pfx_msg void SetHleNameCLPCTSTR ipszNewValue); 
\'cifx_msg long fietStatusQ; 
c{fx_msg void SetStctus(long nNewValue); 
i^x_msg long SetCommandQ; 
;jsfx_m»sg void SetCommand(long nNewValue); 
af x_msg long SetSlobPtrQ; 
afx_msg void 5etSbbPtr(long nNewValue); 
afx_msg long SetDataPtrQ; 
cf x_msg void SetDataPtrClong nNewValue); 
afx_msg iong SetAvailSizeQ; 
afx_msg void 5etAvail5ize(iong nNewValue); 
af x_msg BOOL &etReadOnlyMMF(); 
afx_msg void 5etReadQnlyMMF(BOOL bNewVaiue); 
cfx_msg BOOL SetNotifyQ; 
cfx_msg void 5etNotify(BOOL bNewVaiue); 
cfx_msg short SetByteValueQ; 
af x_msg void 5etByteValue(short nNewValue); 
afx^msg long &etLVaiueO; 
af x_msg void 5etLValue(long nNewValue); 
afx_msg short SetlVaiueQ; 
cfx_msg void SetrVaiue(short nNewValue); 
Gfx_msg BSTR SetStrValueQ; 
afx_msg void 5etStrVaiue(LPCT5TR IpszNewValue); 
cfx_msg BSTR SetFulIPathQ; 
Gfx_msg void 5eTFuIIPath(LPCTSTC IpszNewValue); 



af x_rnsg BOOL SctAutoScndNDtifyQ; 

af x_ms3 void SetAuto5endNotify(BOOL bNewVaiue); 

afx_msg long &etNHandlesO; 

afx_msg void SetNHandlesClong nNewValue); 

af x_msg long &etNNotif yMapsQ; 

af x_msg void SetNNotif yMaps(long nNcwVaiue); 

af x„msg long &ctSlob5i2e(); 

af x_msg void SetSlobSi2c(iong nNewVaiue)r - 

afx.msg iong SctRefCountO; 

af x_msg void SetRef Count(long nNewValue); 

afx_msg BSTR SetVersionQ; 

af x_msg void SetVersion{LPCTS"re IpszNewValue); 

af x^msg BSTR SetUOMQ: 

afx^msg void SetUOM(LPCTSTR IpszNewValue); 

□fx_msg BSTR SetLinkQ; 

afx^msg void SetLink(LPCTSTR IpszNewValue); 

afx_msg long MMFCloseQ; 

afx.msg long MMFAddSlob(LPCTSTT^ SlobName, long Unitslndex, long DimZSize, long DimlSIze, long ElementSize, long 
T>pe, long Extra); 

,;f:afx_Tnsg long MMFAdd&lobEx(LPCTSTR SlobName, LPCTSTR UnitsName, long DimZSize, long DimlSize. long ElementSi: 
oil Type, long Extra); _ . 

Jiafx„n:TSg BOOL SetPirsteiobQ; 
;^;af x_ms5 BOOL SetNextSiobQ: 
'■^bfx^sg void EroseQ; 
;"bfx_msg void MMFEraseQ; 

'hf x^nasg void InsertClong value, long index); 

:.:afx_msg long ResizeMMF(long NewSize); 

Jafx_msg void 5endNot[fyX(short NotifylD, short Value); 

::|pfx„n:\sg BOOL FormatMMF(iong NotifyLimit); 

[ ?pf x^nisg long IndexOf (LPCTSTTl ^lobName); 

;;pfx_msg long SetValuefiong bmZ, long Diml); 

:.afx_msg void SetValue(long Dim2, long Diml, long nNewValue); 

afx_msg long SetNotifyHandle(short index); 

afx„msg void SetNotifyHandie(short index, long nNewValue); 

afx_msg short SetAbValueCiong index); 

af x_nisg void SetAbValueOong index, short nNewVaiue); 

cfx„msg long &etAlVatue(long index); 

afx_msg void SetAlVaiue(long index, long nNewValue); 

af x_n:\sg short SetAi Value(long index); 

cf x_msg void 5etAiVaiue(iong index, short nNewValue); 

cfx_msg long &etValue5D(long n); 

afx_n\sg void SetValue5D(long n, long nNewVaiue); 

afx^msg long &etNotifyList(iong index); 

af x_msg void SetNotifyList(long index, long nNewValue); 

afx_msg BOOL &etNotrfyOnChangeCLPCT5TR SlobName); 

cf x_msg void 5etNotifyOnChange(LPCTS"m SlobName, BOOL bNewValue); 

//}}AFX_DISPATCH 

DECLARE^DISPATuhLMAPO 

afx_msg void AboutBoxQ; 

cfx_msg long OnValueChanged(L/rNT,LON&); 
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// Event maps 

//{{AFX_EV€NT(C5iobCtr!) 

void FireChangeCshort PropID. short Value, long SendID) 

{FircEvent(eventidChan9e,EVEMT.PARAM(VTS_r2 VTS^IZ VT5„I4), PropID, Value, SendID);} 
//}}AFX_EVENT 
DECLARE_EVENT_MAPO 

// Dispatch and event IDs 
public: 
enum { 

//{{AFX_DISPJD(C&lobCtr[) 
dispidSloblndex = IL, 
dispidDimlSize = ZL, 
dispidDin:\2Si2e = 31, 
dispidElementSize = 4L, 
dispidType = 5L, 
dispidExtrc = 6L, 
dispidDataSize - 7L, 
: QlispidSlobNanie = 8L, 
SispidRleSize = 9L, 
pspidFileName = lOL, 
SispidStatus r IIL, 
^'iJispidCommand = 12L, 
i'pspidSlobPtr = 13U 
yispidDataPtr = 14L, 
dispidAvailSize = 15L, 
^c^ispidReadOnlyMMF = 16L, 
IJispidNotify = 17L, 
ryisptd Values ' ISL, 
;aispidValue32 = 
;|iispidValuel6 = 20L, 
'dispidStrVaiue = 21L, 
dispidFullPoth = 22U 
dispidAutoSendNotify = 23L, 
dispidNHondles = 24L, 
dispidNNotifyMaps = 25L, 
dispidSlobSize = 26L, 
dispidftef Count = 27L, 
dispidVersion = 2BL, 
dispidUOM = 29U 
dispidLink = SOL, 
dispidValue = 43L, 
dispidCioseMMF = 31L, 
dispidAddNew = 32L, 
dispidAddNewEx = 33U 
dispid^SetFirstSiob = 34L, 
dispid&etNext&iob = 35L, 
dispidErcse - 36L, 
dispidEraseMMF = 37U 
dispidNotify Handle = 44L, 
dtspidAValueB = A5L, 
dispidAVa!ue32 = 46L, 
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dispidAValuel6 = 47U 
dtspidVaiueSD = 4BL, 
dispidlnsert = 38L, 
dispidResizeMMF = 39L. 
dispidSendNotify = 40L, 
dispidNotifyMap = 49L, 
dispidFormctMMF = 41L, 
dispidlndexOf = 42L, 
dispidNotifyOnChange = 50L, 
event idChangc = IL, 
//}}AFX_DISP_rD 

}; 

private; 
t&lob * GlobPtr; 
long datasize; 
CString m^SlobName; 
BOOL m_Notify; 
CMutex ^eiobLock; 
SMutex *MMFLock; 
OString m_FuIlPath; 
iSstring m_RleName; 
!fnt m_FileSize; 
■iANDLE f; 
Handle hRlcMapT; 
.AaNDLE s.hRleMap; 
f Control *lpView; 
>ibPByTE ipLcst 
ioOL nuAutoNotify; 
:l?ng m^MoxLinks; 

/OString 5PX_N0TrFy_MUTEX; 
;i€String 5PX„MMF_MUTEX; 

//private member functions 
long MMFCreate(void); 

long MMFOpen(LPCTSTR, long, LPCTSTR, long); 

long MMFRemapView( long ); 

long MMFeetGiobPtr(LPCTSTR); 

t&lob *MMFNextAvaili51ob( long ); 

i-Slob .^MMFFirst&lobO; 

void MMFErcse&lob( t&lob *); 

long MMF&et&lobIx(LPCT5TR); 

void MMFResetSlobs(void); 

BOOL AddNotify(tSlob*,HWND); 

BOOL RemoveNotify(t5iob*,HWND); 

int FindHandie(HWND); 

void SendNotify(tSlob*, tControl*, short, short); 

void MAf\FCiearSbbBitsCiong BitMap); 

long SyncFileSizeQ; 

void SetBitMap(t51ob* Jong index); 

BOOL RemoveNotifyX(t&lofa* SlobPtr, HWND my_hWnd); 

long MMFCiearebbBit(T&iob* GPrr.long index); 
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BOOL NotifyUstIsEmpty(tGlob *ip&lob); 
ions SetWsibleQ; 

y. 

//{{AFX_IMSERTJ,OCATIONI}} 

// Microsoft Developer Studio wiii '\nser\ additional declarations immediately before the previous line. 
#endif // !defined(AFX_SLOBCU_H_5F20D2E4_788C_UDl_9A9B_020701045A6B_IMCLUbED) 



// Copyright 1998, 1999 SPX Corporation 

// stdafxxpp : source f iie that inciudes just the standard includes 

// stdafx.pch will be the pre-compiled header 

// stdafx.obj will contain the pre-compiied type information 

#include "stdafx,h" 
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// Copyright 1998. 1999 SPX Corporation 

#if ldefined(AFX_STi:iAFX_H_5F20E>2M_788C_llDl_9A9B_020701045A6B_INaUDED_) 
#dcfine AFX_STT>AFX_H_5F20Cy2C)A_788C_llDl_9A9B_020701045A6B_rNCLUDED_ 

#if _MSC_VER>= 1000 
#pragmo once 

#endif // _WSC_VER >= 1000 

« 

// stdafx.h : include file for standard system include files, 
// or project specific include files that are used frequently, 
// but are changed infrequently 

#def ine VC_EXTRALEAN // Exclude rarely-used stuff from Windows headers 

#include <af xctLh> // MFC support for ActiveX Controls 

// Delete the two includes below if you do not wish to use the MFC 
// database classes 

#i|ttlude <afxdb.h> // MFC database classes 
#iitlude <afxdao.h> // MFC bAO database classes 

//iAFX_INSERT_LOCATTON}} 

//:;^Microsoft Developer Studio will insert additional declarations immediately before the previous line. 
#&}d\f // idef ined(AFX_STDAFX_H_5F20D2DA_788C_llDl_9A9B_020701045A6B_INCLUDED J 
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// Copyright 1998, 1999 SPX Corporation 
//{{N0_DEPENI>ENCIES}} 

// Microsoft Developer Studio generated include file, 
// Used by &lob.rc 

// 

#def ine IbS_GLOB 1 

#dcf ine IDD_ABOUTBOX_SLOB 1 

#def ine It>B_SLOB 1 

#def ine IDI.ABOUTDU, 1 

#def ine Ib5_&lOB_PP& 2 

#def ine IDS_SLOB_PPG_CAPTTON 200 

#def ine IDD_PftOPPAeE_eLOB 200 

// Next default values for new objects 

// 

#lf def APSTUDIO_INVOKED 

#if ndef APSTUDIO.READONLY.SYMBOLS 

#def ine _APS_NEXT_RESOURCE_VALUE 203 

#cief ine _APS_NEXT_COMA\AND_VALUE 32768 

#4finc_APS_NEXT_C0NTT?0L_VALUE 201 

#cilf ine _APS_NEXT_syMED_V'ALUE 101 

#4ndif 

#endif 
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// Copyright 1998, 1999 SPX Corporation 

#if !defincd(Af^_GLOBPP&_H_5F20D2E6_7BBC_llDl_9A9B_020701045A6B_INCLUDEDJ 
#define AFX_GLOBPPe_H_5F20C»2E6_7B8C_llDl_9A9B_020701045A6B_INlCLUDED_ 

#if _M5C_VER >r 1000 
#pragma once 

#endif // _hKSC_VEk >= 1000 

// SlobPp3.h : Declaration of the C&lobPropPage property page cioss. 

//////////////////////////////////////////////////////////////////////////// 
II CSiobPropPage : See SlobPpg.cpp.cpp for impiementation. 

class CSIobPropPage : public COlePropertyPage 

{ 

DECLARE^byNCREATECceiobRropPage) 
DEaARE_OLECREATE.EX(CeiobPropPage) 

//Xonstructor 
po&lic: 
' %eiobProppGgeO; 

//"bialog Data 
, t/{{AFX_D ATA(ceiobPropPage) 
: enum { IDD = IDD.PROPPAfiE.SLOB }; 

// NOTE - Class Wizard will add data members here. 

// DO NOT EDIT what you see in these blocks of generated code ! 
J/}}AFX_DATA 

//amplementation 
protected: 

^virtual void DoDataExchange(CDataExchange* pDX); - // DDX/DDV support 

// Message maps 
protected: 

//{{AFX_M5i5(CSlobPropPage) 

// NOTE - CiassWizard will add and remove member functions here. 
// DO NOT EDIT what you see in these blocks of generated code ! 
//}}AFX_M5& 

DECLARE^MESSASE^MAPO 

}; 

//{{AFX_IN5ERT_L0CATI0N}} 

// Microsoft Developer Studio will insert additional deciarctior^s immediately before the previous line. 
#endif // !defined(AFX_SLOBPP&_H„5F20D2E6_788C_llDl_9A9B_020701045A6B_INaUDED) 
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Pr intUtitrttes 1 

~'5ub StartPrintirg(TsmplcrteNbme As String) 
Dim OldRegScction As String 

'Setup printer 

Wilh frmATPPrintj^egistryl 

-OldRcgSection = 3ection 

.Section = "Printer" 

.Value("Command") = "Print" 

.Value("Temp1ate") - TemplateName 

.Section = OidRegSection 
End With 

'Start printirw process 

f rmATPPrint.PrintControl.Command = SL_ModPrinterRequest 
End Sub 
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